Veri Aktarımı

[bkadri]

Arkadaşlar, Forum sayfalarında benzerleri var ama birtürlü kendime göre uyarlayamadım. sorun şu

Sayfa1 deki c3,c4,c5,c6 hücrelerini Sayfa2 deki b2,c2,d2,e2 hücrelerine aktararak database oluşturmak istiyorum.

Teşekürler.

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz aktarım işlemi sürekli aynı hücrelerin üzerinemi yapılacak yoksa alt altamı devam edecek? Konuyla ilgili örnek bir dosya eklerseniz daha faydalı olacaktır.

 

[bkadri]

Veri aktarımı ile ilgili dosya ekte

ben elimde bulunan bir makroyu yazdım ama bir incelerseniz.

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodları aşağıdaki ile değiştirip denermisiniz.

Sub AKTAR()
    Application.ScreenUpdating = False
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    If [C2] = "" Or [C3] = "" Or [C4] = "" Or [C4] = "" Then GoTo HATA
    
    S2.Select
    SON = [A65536].End(3).Select
    If ActiveCell.Address = "$A$1" Then
    ActiveCell.Offset(1, 0).Select
    ActiveCell = 1
    Else
    ActiveCell.Offset(1, 0).Select
    ActiveCell = ActiveCell.Offset(-1, 0) + 1
    End If

    ActiveCell.Offset(0, 1).Value = S1.[C2]
    ActiveCell.Offset(0, 2).Value = S1.[C3]
    ActiveCell.Offset(0, 3).Value = S1.[C4]
    ActiveCell.Offset(0, 4).Value = S1.[C5]
    [A1].Select
    S1.Select
    [C2:C5] = ""
    [C2].Select
    Application.ScreenUpdating = True
    MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
    Exit Sub
HATA:
    MsgBox "EKSİK BİLGİ GİRİŞİ TESBİT EDİLMİŞTİR." & Chr(10) & "LÜTFEN GİRDİĞİNİZ BİLGİLERİ KONTROL EDİNİZ.", vbCritical, "DİKKAT !"
End Sub

 

[bkadri]

cevap

istediğim gibioldu teşekür ederim..