Bir sonraki boş hücreyi bularak veri yapıştırma

[zelheli]

tamam hocam kodu kopyalarken hata yapmışım.
peki ek olarak eklenecek satır başka bir sayfada, liste başka bir sayfada olursa kodu nasıl değiştirmem gerek.
şimdiden teşekkür ederim.

 

[zelheli]

Hocam o sorunu 2. Bir buton ekleyerek halletmeye çalıştım.
önce 1. Sayfadan 2. Sayfaya aktaran bir buton sonra da 2. Sayfadakini aynı sayfadaki listeye ekleyen buton yaptım.
Yardımlarınız için teşekkür ederim.

 

[Ergün Güler]

tamam hocam kodu kopyalarken hata yapmışım.
peki ek olarak eklenecek satır başka bir sayfada, liste başka bir sayfada olursa kodu nasıl değiştirmem gerek.
şimdiden teşekkür ederim.

Dosyanızda gereksiz yere hücreleri birleştirmişsiniz. Tek hücre ile istediikleriniz gerçekleşebilirdi. İleride çok karışıklık ve zorluk çekersiniz.

verileri giriş sayfasının 7.satırından ve ilgili sütunlarından yaptığınızı düşünürsek aşağıdaki gibidir;

Sub listeye_ekle2()
Dim giris As Worksheet
Dim liste As Worksheet
Dim son As Long
Dim sat As Long

Set liste = ThisWorkbook.Sheets("liste")
Set giris = ThisWorkbook.Sheets("giriş")
son = liste.Range("I65536").End(3).Row

If son < 11 Then sat = 11 Else sat = son + 1

If giris.Cells(7, "I") = "" Or giris.Cells(7, "N") = "" Then
MsgBox "Sayın " & Environ("Username") & "," & vbLf _
& "Lütfen Ad-soyad bilgisini giriniz!", vbCritical, "EKSİK VERİ GİRİŞİ"
Exit Sub
End If
liste.Cells(sat, "I") = giris.Cells(7, "I")
liste.Cells(sat, "N") = giris.Cells(7, "N")
liste.Cells(sat, "R") = giris.Cells(7, "R")
liste.Cells(sat, "X") = giris.Cells(7, "X")
liste.Cells(sat, "Z") = giris.Cells(7, "Z")
liste.Cells(sat, "AB") = giris.Cells(7, "AB")
liste.Cells(sat, "AE") = giris.Cells(7, "AE")
liste.Cells(sat, "AH") = giris.Cells(7, "AH")
liste.Cells(sat, "AN") = giris.Cells(7, "AN")

giris.Cells(7, "I") = ""
giris.Cells(7, "N") = ""
giris.Cells(7, "R") = ""
giris.Cells(7, "X") = ""
giris.Cells(7, "Z") = ""
giris.Cells(7, "AB") = ""
giris.Cells(7, "AE") = ""
giris.Cells(7, "AH") = ""
giris.Cells(7, "AN") = ""

End Sub

 

[husnusezer]

Selam,
aşağıdaki kodları deneyiniz.
9. satırdan en son satıra kadar boş satırı arar. ibulur ise ilk boş satıra veriyi yapıştırır. boş satır yok ise en son dolu satırdan sonraki ilk boş satıra yapıştırır.

Sub ekle()

son = Range("A65536").End(3).Row

If son < 9 Then
Cells(9, "A") = Cells(2, "A")
Cells(9, "B") = Cells(2, "B")
Exit Sub

End If

For i = 9 To son

If Cells(i, "A") = "" Then

Cells(i, "A") = Cells(2, "A")
Cells(i, "B") = Cells(2, "B")
Exit Sub
End If

Next

Cells(son + 1, "A") = Cells(2, "A")
Cells(son + 1, "B") = Cells(2, "B")
End Sub

merhabalar
ben bu işlemi sayfalar arasında yapmak istiyorum.Mesela sayfa 2 de olacak veriler sayfa 1 e aktaracak. ama aktarırken ordakileride silmeyecek. Cok acil . Tesekkürler