[ÇÖZÜLDÜ] Güncellenen değerlerin başka sayfadaki dolu sütunun sağındaki ilk sütuna aktarılması

[enteresan]

[ÇÖZÜLDÜ] Güncellenen değerlerin başka sayfadaki dolu sütunun sağındaki ilk sütuna aktarılması

Sevgili excel severler, içinden çıkamadığım bir çalışmayı ekte gönderdim. Sayfa1 de güncellediğim verileri sayfa 2 de farklı bir tarih başlığı ile en son dolu sütundan sonraki ilk boş sütuna aktarmak istiyorum. Dosya ektedir. İlgilenen olursa minnettar olurum. Saygılar..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Dim TARİH As Variant
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    TARİH = CDate(Application.InputBox("LÜTFEN TARİH GİRİNİZ !", "TARİH GİRİŞİ", Format(Date, "dd.mm.yyyy")))
    If TARİH = "" Or TARİH = False Then Exit Sub
    Set BUL = S2.Cells.Find(TARİH)
    If BUL Is Nothing Then
    S2.Range("C5:C" & S1.[A65536].End(3).Row + 2).Value = S1.Range("A3:A" & S1.[A65536].End(3).Row).Value
    SÜTUN = S2.[IV5].End(1).Column + 1
    S2.Cells(4, SÜTUN) = TARİH
    S2.Range(Cells(5, SÜTUN), Cells(S1.[C65536].End(3).Row + 2, SÜTUN)).Value = S1.Range("C3:C" & S1.[C65536].End(3).Row).Value
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
    Else
    MsgBox "YAZMIŞ OLDUĞUNUZ TARİH DAHA ÖNCE AKTARILMIŞTIR." & Chr(10) & "LÜTFEN KONTROL EDİNİZ !", vbExclamation, "DİKKAT !"
    End If
    Set S1 = Nothing
    Set S2 = Nothing
End Sub

 

[enteresan]

Korhan hocam, kodu dosyaya uyguladım lakin bir yerde hata veriyor. Bi gözatmanız mümkün mü acaba.. Saygılarımla...

 

[yeniyetme]

s2.Cells(4, SÜTUN) = TARİH
Sheets("sayfa2").Activate '''iki kodun arasına bu kodu ekleyince çalışıyor..
s2.Range(Cells(5, SÜTUN), Cells(S1.[C65536].End(3).Row + 2, SÜTUN)).Value = S1.Range("C3:C" & S1.[C65536].End(3).Row).Value

 

[enteresan]

s2.Cells(4, SÜTUN) = TARİH
Sheets("sayfa2").Activate '''iki kodun arasına bu kodu ekleyince çalışıyor..
s2.Range(Cells(5, SÜTUN), Cells(S1.[C65536].End(3).Row + 2, SÜTUN)).Value = S1.Range("C3:C" & S1.[C65536].End(3).Row).Value

Teşekkür ederim. Saygılar...

 

[yeniyetme]

Teşekkürü Korhan hocam hakediyor.
Ben basit olan kısmını yaptım...

 

[enteresan]

Teşekkürü Korhan hocam hakediyor.
Ben basit olan kısmını yaptım...

Korhan Hocama ne kadar teşekkür etsem azdır zaten. Onu unuttuğumu düşünmesin tabiii. Ayrıca tekrar ona da teşekkür ederim...