satır ve sütundaki veriyi listeleme ?

[blackkugu]

Merhaba arkadaşlar A1 ile D6 arasında satır sütunların bir kısmında veri varken bir kısmında yok, for ile bu aradaki verileri boşları hariç tek tek nasıl okutturabilirim ?
nette aradım bulamadım.

 

[RBozkurt]

Bu veriler nereye aktarılacak hedef olarak?

 

[blackkugu]

Bu veriler nereye aktarılacak hedef olarak?

aslında bu veriler excelde yazdırılacak sayfa adları sayfa adlarını alarak print yazdırmak istiyorum.

 

[RBozkurt]

Çıktı alınacak sayfa adları değişken mi? Tam işlem nedir yapcağınız.

 

[blackkugu]

Çıktı alınacak sayfa adları değişken mi? Tam işlem nedir yapcağınız.

https://www.hizliresim.com/2d3f1yv

amacım yazdır butonuna bastığımda bu alandaki sayfa isimlerini okuyup o sayfaların yazılmasını sağlamak. Sınıflar zamanla değişiyor. O nedenle Sütunların arasındaki değeri vba ile okuyup o değerin print ettirilmesi.

 

[RBozkurt]

Deneyiniz.

Sub SayfaCiktisiAl()

    Dim ws As Worksheet
    Dim printRange As Range
    Dim cell As Range
    
    For Each cell In Range("AD5:AG10")
        If cell.Value <> "" Then
            Set ws = Worksheets(cell.Value)
            Set printRange = ActiveSheet.UsedRange
            ws.PrintOut From:=1, To:=1, Copies:=1, Preview:=True
        End If
    Next cell
End Sub

 

[blackkugu]

Deneyiniz.

Sub SayfaCiktisiAl()

    Dim ws As Worksheet
    Dim printRange As Range
    Dim cell As Range
   
    For Each cell In Range("AD5:AG10")
        If cell.Value <> "" Then
            Set ws = Worksheets(cell.Value)
            Set printRange = ActiveSheet.UsedRange
            ws.PrintOut From:=1, To:=1, Copies:=1, Preview:=True
        End If
    Next cell
End Sub

Eline sağlık harika oldu. Notları tek tuşla çıktı alabileceğim artık çok tşk ederim.

 

[RBozkurt]

Kolay gelsin.