Excel tablosunda liste?

[newmoonstar]

Merhabalar Arkadaşlar!

Örneğin D10 alanındaki verinin boş çalışma kitabına listeleme nasıl yapılır?

ALTALTA LİSTELEME ŞEKLİNDE OLACAK

EKTE ANLATILAN ÖRNEK VARDIR...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
say = WorksheetFunction.CountA([sayfa2!a:a])
Sheets("sayfa2").Cells(say + 1, "a") = [a10]
End Sub

 

[newmoonstar]

Listeleme

say = WorksheetFunction.CountA([Posta!B:B])
Sheets("Posta").Cells(say + 1, "B") = [D4]

say = WorksheetFunction.CountA([Posta!C:C])
Sheets("Posta").Cells(say + 1, "C") = [G4]

say = WorksheetFunction.CountA([Posta!F:F])
Sheets("Posta").Cells(say + 1, "F") = [D10]

say = WorksheetFunction.CountA([Posta!G:G])
Sheets("Posta").Cells(say + 1, "G") = [J12]


Şeklinde yaptım ancak son satırdaki almıyor... EK'teki dosyayı göndersem bakabilir misiniz?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

say = WorksheetFunction.CountA([Posta!B3:B52])
Sheets("Posta").Cells(say + 3, "B") = [D4]
 
say = WorksheetFunction.CountA([Posta!C3:C52])
Sheets("Posta").Cells(say + 3, "C") = [G4]
 
say = WorksheetFunction.CountA([Posta!F3:F52])
Sheets("Posta").Cells(say + 3, "F") = [D10]
 
say = WorksheetFunction.CountA([Posta!G3:G52])
Sheets("Posta").Cells(say + 3, "G") = [J12]

 

[newmoonstar]

Konu Hk.

Selamlar çok teşekkürler... Allah razı olsun...
Başarılar Dilerim..