Son dolu satırı, Sayfa2'nin son dolu satırının altına aktarma

[kamiloğlu]

Arkadaşlar Userform üzerindeki Commandbutton ile (formül sonuçlarının olduğu) Sayfa1 'deki son dolu satırı, Sayfa2 deki son dolu satırın altına (formülsüz değerleri) nasıl aktarabillirim.
Bir türlü beceremedim.

 

[PLİNT]

Merhaba
Komple satır için ise "değerleri" yapıştır ile yapabilirsiniz.

Private Sub CommandButton1_Click()
Set r = Range("A:A").Find("*", , xlValues, searchorder:=xlByColumns, searchdirection:=xlPrevious)
Sheets("Sayfa1").Cells(r.Row, 1).EntireRow.Copy
Sheets("Sayfa2").Cells(Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row + 1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 

[kamiloğlu]

teşekkürler, işe yarar gibi duruyor.

Fakat Sayfa1'deki son dolu satırı (içinde formül olan ve hücre değerini boş olan satırı seçip) yanlış seçip aktarıyor. İçinde veri olan satırı esas alması için ne yapabiliriz..

 

[PLİNT]

teşekkürler, işe yarar gibi duruyor.

Fakat Sayfa1'deki son dolu satırı (içinde formül olan ve hücre değerini boş olan satırı seçip) yanlış seçip aktarıyor. İçinde veri olan satırı esas alması için ne yapabiliriz..

Merhaba


Eğer "A" sütununda ise ve işlemi yokken hücre boşsa; yukarıdaki değişen şekilde olabilir.
http://s3.dosya.tc/ örnek dosya ekleyip adres verirmisiniz?

 

[kamiloğlu]

Çalışmam ekte, buyrun.

http://s3.dosya.tc/server10/v7yqxm/Kopya__5_.rar.html

 

[PLİNT]

Dosyanızda aktarılacak satır miktarı sınırlıymış; formda yaptığınız mantıkla;
"E99:BJ123" aralığındaki sadece değerleri komple aktararak;
http://s3.dosya.tc/server10/dnapdu/maas_hesaplama_calismasi_-_Kopya__5_.zip.html

Private Sub CommandButton1_Click()
Dim s1, s2 As Worksheet
Set s1 = Sheets("AKTARMA")
Set s2 = Sheets("AKTARM")
srw = s2.Cells(Rows.Count, 1).End(3).Row + 1
  's2.Range("A2:BA" & srw )=empty [COLOR="Blue"]'ÖNCEKİLER SİLİNECEKSE[/COLOR]
s2.Range("A" & srw & ":BA" & srw + 24).Value = s1.Range("E99:BJ123").Value
End Sub

sadece son satır içinde ;

Private Sub CommandButton2_Click()
Dim s1, s2 As Worksheet
Dim r As Range
Dim srw As Long
Set s1 = Sheets("AKTARMA")
Set s2 = Sheets("AKTARM")
Set r = s1.Range("E98:E123").Find("*", , xlValues, searchorder:=xlByColumns, searchdirection:=xlPrevious)
srw = s2.Cells(Rows.Count, 1).End(3).Row + 1
s2.Range("A" & srw & ":BA" & srw).Value = s1.Range("E" & r.Row & ":BJ" & r.Row).Value
End Sub

gibi olabilir.

 

[kamiloğlu]

Mükemmel. Teşekkür ederim. Çok teşekkür ederim.