excel sayfadaki son dolu hücre

[bilisim2010]

X sayfasının G2 hücresindeki 1000000 başlangıç seri numaram.
XX sayfası b114 deki veride X sayfasındaki G2 hücresinin seri numarasının sonu 1000112.

XX Sayfasındaki b114. SATIRI yani son dolu satır bul ile buldurup X sayfasındaki g2 1000000 nın üzerine yazdırsın istediğim bu hocam bu işlemi sayfada yapsın userform da değil

formül sonucunda X sayfasının G2 hücresindeki 1000000 (1000112) olacak.

 

[ÖmerBey]

Merhaba,
Bir dosya olsa soru daha anlaşılır olurdu sanki.
Deneyiniz...

Sub kod()
Dim X As Worksheet, XX As Worksheet
Set X = Worksheets("X")
Set XX = Worksheets("XX")
X.Range("G2").Value = XX.Cells(Rows.Count, "B").End(3).Value
End Sub

 

[bilisim2010]

Merhaba,
Bir dosya olsa soru daha anlaşılır olurdu sanki.
Deneyiniz...

Sub kod()
Dim X As Worksheet, XX As Worksheet
Set X = Worksheets("X")
Set XX = Worksheets("XX")
X.Range("G2").Value = XX.Cells(Rows.Count, "B").End(3).Value
End Sub

teşekkürler işimi gördü hocam.