açılır liste şarta bağlı olarak çoklu yazdırma yapmak istiyorum ,yazdırma alanı ve kaydet butonu ile 3 sorum var ekte dosyada yardımlarınızı bekliyorum.
Saygılarımla.
Saygılarımla.
Ekli dosyalar
-
978 KB Görüntüleme: 16
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Iterate_Through_data_Validation()
Set s1 = Sheets("FORM")
Set s2 = Sheets("E.BELGESİ")
son = WorksheetFunction.Max(12, s1.Cells(Rows.Count, "B").End(3).Row)
For i = 12 To son
If s1.Cells(i, "B") <> 0 Then
s2.[E5] = s1.Cells(i, "B")
s2.PrintOut
End If
Next
End Sub
Verdiğim kodu denediniz mi?Üstad ilgin için teşekkürler ben e.belgeside sekmesindeki beyaz bölgeli alanı açılır kutudaki verilerin hepsini sırayla yazdırmak istiyorum bunu yapıyorum fakat formüllü olan boş verilerde bu açılır listede görünüyor onları yazdırmak istemiyorum yani açılır listede 50 veri varsa bunlardan boş olan yazdırmasın yalnız bu boş olan satırlar formülle gelen veriler değeri sıfır olanlarda boş görünüyor inşallah anlatanilmişimdir