30-31 Mart-1 Nisan

Pazar gününde yapılan alışverişleri dikkate alarak puan kullanım raporunu hazırladım. Sadece pazar gününü hazırlamama rağmen en çok alışveriş yapan mağaza listesini düzenlerken fazlasıyla zorlandım çünkü bazı mağazalardan 7 veya 8'den fazla yapılan alışveriş vardı.(bu listede en az 3 alışverişi olan mağazanın alışverişleri kontrol edilmelidir. 3'den fazla kaç kayıt varsa listeye alınır.) hepsini tek tek kontrol edip hangi kampanyadan yararlandıklarını ve hangi ürünleri tek tek kontrol edip listeye geçirmek zorunda kaldım. Bu yüzden diğer günlerin raporlarını yapmadım.

İnsert'ün yeni sayısı çıktığı için bu hafta fazlasıyla yoğundum. SMS'leri diğer stajyer yaparken bende far ürünlerinin listesini ve kampanyaları insert üzerinde işaretlemeyi yaptım.

Gelen faturaların girişlerini yaptım. İmzalattıktan sonrada muhasebeye götürdüm. Bir faturada tevkifat oranı alınmadığı için faturayı kesen firmaya geri gönderdik. Tevkifat oranı alınarak tekrardan yeni bir fatura düzenlemesini istedik.

Excel Soru-Cevap Vol19

Soru: Ben kodlarla ve UserForm'larla bir Excel programı yazıyorum. Bir türlü bulamadığım şeyse . Ekranda çalışan bir UserForm kapatılınca programında kendini kapatması . Ama kapatma derken bu bir emirle değil form üzerindeki"x" işareti tıklanınca yani UserForm çalışması durdurulunca nasıl yaparım. İlgilerinize teşekkürler.

Cevap:Aşağıdaki kodu Formun kod sayfasına yazın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
End Sub
Çarpıya tıklayınca programda kapanacaktır.

Excel Soru-Cevap Vol18

Soru: Dosyanın kaç defa açıldığını gizli bir sayfanın istediğim hücresine yazan bir makroyu nasıl yazabilirim?

Cevap: Aşağıdaki makro konunda Sheet2 gizlidir. Görmek için Format (Biçim) menüsünden Sheet(sayfa) alt menüsüne oradan da Unhide (göster) komutuna tıklamanız gerekir. Her dosyayı açtığınızda Sheet2 de bulunan A1 hücresine 1 sayı yazdırıldığınıve bunun her defasında arttığını göreceksiniz.

Sub auto_open()
Worksheets("Sheet2").Range("A1") = Worksheets("Sheet2").Range("A1") + 1
End Sub

Excel Soru-Cevap Vol17

Soru: Bir çalışma sayfasındaki rasgele bir hücrenin (B5) her seçilerek değişmesinde (Doğrulama list (Validation)'den yapılan değiştirme) yeni bir çalışma sayfası (worksheets) eklesin ve worksheets.name=Range("B5").Value olsun istiyorum.Buraya kadar tamam ancak B5' de yeni seçtiðim ad daha önce açılmış worksheets'ler arasında varsa beni uyarsın ve yeni çalışma sayfası açmasın istiyorum. Daha önce açılmış çalışma sayfalarının isimleri arasında B5' in yeni değerinin var olup olmadığı nasıl yaptırılır.
Cevap: Bu sorduğunuz sorunun detayını bu ayki PCMAGAZINE dergisinde Excel Makroları bölümde detaylı olarak anlatmıştım. Dilerseniz konunun detayları için dergiyi gözden geçirin. ben sizin sorunuzun cevabı olan makro kodunu aşağıda verdim.

Sub SayfaAra()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Range("B5").Value Then
MsgBox "Bu isimde bir sayfa var"
Exit Sub
End If
Next i
End Sub