Veri aktarma ile ilgili ek

[serdarca]

Hayırlı günler diliyorum. Ekte gönderdiğim dosyada sayfa1 den sayfa2 deki aylara veri aktarılıyor. Fakat aktarılan ayların bulunduğu hücrelerede değer var ise uyarı vermesini isitiyorum. Kabul ettiğim vakit hücre içerisine yazsın. Eğer boş ise hücreler uyarı vermeden direk atmasını istiyorum. Çokmu şey istiyorum. Allah kolaylık versin.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    SON = S1.Cells(65536, 1).End(xlUp).Row
    
    ARA = S1.Cells(1, 2)
        S2.Select
        SÜTUN = S2.[A1:M1].Find(What:=ARA, After:=ActiveCell).Column
        If S2.Cells(2, S&#220;TUN) <> "" Then GoTo ONAY
DEVAM:
        For X = 1 To SON
        S2.Cells(X + 1, 1) = S1.Cells(X + 3, 1)
        S2.Cells(X + 1, S&#220;TUN) = S1.Cells(X + 3, 2)
        Next
        MsgBox "AKTARIM &#304;&#350;LEM&#304; TAMAMLANMI&#350;TIR.", vbInformation
        Exit Sub
ONAY:
SOR = MsgBox("AKTARMAK &#304;STED&#304;&#286;&#304;N&#304;Z " & ARA & " AYINDA VER&#304; MEVCUTTUR." & Chr(10) & "AKTARIM &#304;&#350;LEM&#304;NE DEVAM ETMEK &#304;ST&#304;YOR MUSUNUZ ?", vbYesNo + vbExclamation, "D&#304;KKAT !")
If SOR = vbNo Then Exit Sub
If SOR = vbYes Then GoTo DEVAM
End Sub

 

[serdarca]

Hocam Allah razı olsun ilginize. Yalnız SÜTUN = S2.[A1:M1].Find(What:=ARA, After:=ActiveCell).Column satırında Type mismatch hatası veriyor. Hayırlı günler dilerim.

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanızı tekrar düzenledim incelermisiniz.

 

[serdarca]

Hocam yardımlarınız için teşekkür ederim. Allah kolaylık versin. Hayırlı Ramazanlar dilerim..