Alt satırı Bulma

[Kemal Demir]

Gunaydın Arkadaslar
Açtığım başlık için Çok Ã?zür dilerim Aradım ama bulduklarım Userform için kullanılabilir orneklerdi.
Üzgünüm.
*****************
Sheets("ozet").Select
Range("C3,D3,E3,C12,D12,E12,C13,D13,E13").Select
Selection.Copy
Sheets("tablo").Select
?????????????????????????????????????????????????????????
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("b2:b30000").Select
Selection.NumberFormat = "dd/mm/yy"
Range("a1").Select
Sheets("ozet").Select
Range("C2").Select
*************************

Arkadaslar anlasıldığı uzere Ã?zet sayfasından Tablo sayfasına Değerleri yapıstırıcam
ama ben bu işlemi yaptığımda tablo sayfasının a kolonunun dolu olan en son satırının bir altına yapacam ama her seferınde hucreyı secmek zorun da kaliyorum ..
????????? olan yere gelecek olan kodu sağlayamadım yardımlarını beklıyorum.

SaygıLar

 

[firstisland]

Aşağıdaki kodları deneyiniz. Kendinize uyarlamaya çalısın.

Private Sub CommandButton1_Click()
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub

 

[SGM020]

????????? olan yere gelecek olan kodu sağlayamadım

Soru işaretleri olan yere aşağıdaki gibi kodları eklerseniz. olur herhalde.

Sheets("ozet").Select
Range("C3,D3,E3,C12,D12,E12,C13,D13,E13").Select
Selection.Copy
Sheets("tablo").Select
Range("A1").Select
b = WorksheetFunction.CountA(Sheets("tablo").Range("A1:a65536"))
Sheets("tablo").Cells(b + 1, 1).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("b2:b30000").Select
Selection.NumberFormat = "dd/mm/yy"
Range("a1").Select
Sheets("ozet").Select
Range("C2").Select
*************************

 

[Kemal Demir]

tesekkur ederim arkadaslar