vba döngü ile Anasayfadaki verileri sayfa1 de dolu satırın en alt satıra aktarma

Kodla Büyü

sinansuzer

Site Gezgini
Mesajlar
35
merhaba arkadaşlar döngü ile veri aktarırken e den sonra karıştırmaya başlıyor bunun için daha pratik bir yol varmı Ana sayfadaki tüm verileri sayfa 1 deki dolu satırın altına sırayla aktarmasını istiyorum.

'-------------AD SOYAD---------------------------------------
AA = Sheets("Sayfa1").Range("A2000").End(xlUp).Row + 1
bb = Sheets("Anasayfa").Range("A2000").End(xlUp).Row
Sheets("Sayfa1").Range("A" & AA & ":A" & AA + bb - 1).Value = _
Sheets("Anasayfa").Range("A2:A" & bb + 1).Value
'----------------T.C.KİMLİK----------------------------------
ab = Sheets("Sayfa1").Range("B2000").End(xlUp).Row + 1
ba = Sheets("Anasayfa").Range("B2000").End(xlUp).Row
Sheets("Sayfa1").Range("B" & ab & ":B" & ab + ba - 1).Value = _
Sheets("Anasayfa").Range("B2:B" & ba + 1).Value

'----------------SINIF----------------------------------
S1 = Sheets("Sayfa1").Range("c2000").End(xlUp).Row + 1
s2 = Sheets("Anasayfa").Range("C2000").End(xlUp).Row
Sheets("Sayfa1").Range("C" & S1 & ":C" & S1 + s2 - 1).Value = _
Sheets("Anasayfa").Range("C2:C" & s2 + 1).Value

'----------------OKUL NO----------------------------------
A1 = Sheets("Sayfa1").Range("D2000").End(xlUp).Row + 1
A2 = Sheets("Anasayfa").Range("D2000").End(xlUp).Row
Sheets("Sayfa1").Range("D" & A1 & ":D" & A1 + A2 - 1).Value = _
Sheets("Anasayfa").Range("D2:D" & A2 + 1).Value

'-----------BABA ADI SOYADI-------------------------

B1 = Sheets("Sayfa1").Range("E2000").End(xlUp).Row + 1
B2 = Sheets("Anasayfa").Range("E2000").End(xlUp).Row
Sheets("Sayfa1").Range("E" & B1 & ":J" & B1 + B2 - 1).Value = _
Sheets("Anasayfa").Range("E2:E" & B2 + 1).Value

'-------------BABA TEL ----------------------------------------
T1 = Sheets("Sayfa1").Range("F2000").End(xlUp).Row + 1
t2 = Sheets("Anasayfa").Range("F2000").End(xlUp).Row
Sheets("Sayfa1").Range("F" & T1 & ":F" & T1 + t2 - 1).Value = _
Sheets("Anasayfa").Range("F2:F" & t2 + 1).Value

'------------ANNE ADI SOYADI --------------------------
A1 = Sheets("Sayfa1").Range("G2000").End(xlUp).Row + 1
A2 = Sheets("Anasayfa").Range("G2000").End(xlUp).Row
Sheets("Sayfa1").Range("G" & A1 & ":L" & A1 + A2 - 1).Value = _
Sheets("Anasayfa").Range("G2:G" & A2 + 1).Value

'----------------------ANNE TELEFON--------------------------

T3 = Sheets("Sayfa1").Range("H2000").End(xlUp).Row + 1
T4 = Sheets("Anasayfa").Range("H2000").End(xlUp).Row
Sheets("Sayfa1").Range("H" & T3 & ":H" & T3 + T4 - 1).Value = _
Sheets("Anasayfa").Range("H2:H" & T4 + 1).Value
 
Hocam örnek veri ve kodları içeren bir excel dosyası yüklerseniz daha kolay anlaşılır. Dosya içinde kişisel bilgiler olmasın (KVKK ya dikkat)
 
merhaba hocam örnek dosya ektedir. userform içinde kodları ekledim görünüşte doğru aktarıyor fakat kayıt sayısı 2000 e yakın okunca ve arada anne yada baba adı boş olursa kaydırma yada eksik aktarma yapıyor
 

Ekli dosyalar

  • örnek dosya.rar
    15.8 KB · Görüntüleme: 5
Örnek dosyayı inceleyiniz. Makroları etkinleştirmeyi unutmayın.
 

Ekli dosyalar

  • örnek dosya.rar
    18.2 KB · Görüntüleme: 12
Geri
Üst