Aktif satırdaki belirli hücreleri aktarma

[mehmetkoca]

Değerli arkadaşlar;

2 sayfalık bir excel dosyam var.1 sayfada sipariş listesi 2.sayfada ise bunların raporlandığı bildirim diye bir sayfam var.Sipariş listesinde hangi satırda aktifsem ordaki belirli hücrelerdeki verileri bildirim sayfasında ilgili yerlere aktarmak istiyorum.Ekli dosyamda gerekli açıklamaları yaptım.Yardımlarınız için şimdiden çok teşekkürler.Saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub BİLDİRİME_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, Satır As Long, Boş_Satır As Long
 
    Set S1 = Sheets("KAPAK")
    Set S2 = Sheets("BİLDİRİM")
 
    S1.Select
 
    Satır = ActiveCell.Row
 
    If Cells(Satır, 1) = "" Then
        MsgBox "Aktarım işlemi için lütfen veri olan satır seçiniz !", vbCritical, "Dikkat !"
        Exit Sub
    End If
 
    If S2.Range("A31") <> "" Then
        MsgBox "Aktarım işlemi için BİLDİRİM sayfasına boş satır eklemelisiniz !", vbCritical, "Dikkat !"
        Exit Sub
    End If
 
    If S1.Cells(Satır, 11) = "" Then GoTo Devam
    If MsgBox("Bu kayıt daha önce aktarılmıştır!" & Chr(10) & "İşleme devam etmek istiyor musunuz?", vbExclamation + vbYesNo, "Dikkat !") = vbYes Then
    
Devam:
    Boş_Satır = S2.Range("A32").End(3).Row + 1
 
    S2.Cells(Boş_Satır, 1) = S1.Cells(Satır, 8)
    S2.Cells(Boş_Satır, 2) = S1.Cells(Satır, 9)
    S2.Cells(Boş_Satır, 3) = S1.Cells(Satır, 2)
    S2.Cells(Boş_Satır, 5) = S1.Cells(Satır, 3)
    S2.Cells(Boş_Satır, 6) = S1.Cells(Satır, 4)
    S2.Cells(Boş_Satır, 7) = S1.Cells(Satır, 6)
    S1.Cells(Satır, 11) = "AKTARIM YAPILDI"
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Else
    MsgBox "İşleminiz iptal edilmiştir.", vbExclamation
    End If
    
    Set S1 = Nothing
    Set S2 = Nothing
End Sub

 

[mehmetkoca]

Sayın Korhan Ayhan ;

Çok teşekkür ederim.Yapmış olduğunuz makro işimi gördü.Yalnız mümkünse eğer sizden bir ricam daha olacak.Hangi satırın aktarıldığını unutmamak amacıyla ilgili satırda aktarım işlemi yapıldıktan sonra satırın tablonun bittiği hücresine en sonda AKTARIM YAPILDI şeklinde bir yazı eklense olurmu.Her satırda aktarım yapıldıktan sonra çıkabilirmi.??Böylelikle daha kullanışlı olur benim için.

Yardımınız için çok teşekkür ederim.
Saygılar.

 

[mehmetkoca]

Yardım edebilirmisiniz..????

 

[Orion1]

Korhan beyin yazdığı kodlara benim kırmızı ile yazdığım satırı ekleyiniz.

S2.Cells(Boş_Satır, 1) = S1.Cells(Satır, 8)
    S2.Cells(Boş_Satır, 2) = S1.Cells(Satır, 9)
    S2.Cells(Boş_Satır, 3) = S1.Cells(Satır, 2)
    S2.Cells(Boş_Satır, 5) = S1.Cells(Satır, 3)
    S2.Cells(Boş_Satır, 6) = S1.Cells(Satır, 4)
    S2.Cells(Boş_Satır, 7) = S1.Cells(Satır, 6)
    [B][COLOR="Red"]S1.Cells(Satır, "K").Value = "Bu Satır Aktarıldı"[/COLOR][/B]

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[mehmetkoca]

Çok sağolun.Değerli yardımlarınız sayesinde problem çözülmüştür.Verdiğiniz emek ve harcadığınız zamandan dolayı tekrar teşekkür ederim.

Saygılar...