butonla veri aktarmak

[greatkeops]

dosyadaki sorunuma çözüm arıyorum arkadaşlar. Yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Set S1 = Sheets("verigiriş")
    Set S2 = Sheets("-")
    
    If S1.Range("I6") = "" Then Exit Sub
    
    X = 7
    
    Set BUL = S2.Range("E:E").Find(S1.Range("I6"), , xlValues)
    If Not BUL Is Nothing Then
        For Each Alan In S1.Range("D12:R21")
            If Alan.Interior.ColorIndex = 15 Then
                S2.Cells(BUL.Row, X) = Alan.Value
                Alan.Value = ""
                X = X + 1
            End If
        Next
    End If
    
    S1.Range("I5:I6") = ""
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[greatkeops]

hata verdi ama

 

[Korhan Ayhan]

Merhaba,

Kodu deneyerek önermiştim. Neresi hata verdi.

 

[greatkeops]

Ben bilmediğimden commanbuttonun kod bölümüne yapıştırmayacak mıyım yazdıklarınızı. Sayfanın kod bölümüne yapıştırdığımda kod çalışıyor ancak ben çalışma ysafasına veri girdiğimde aktarmak için neye tıklayacağım? ( Çok cahilce bir soru sormuş olabilirim)

 

[greatkeops]

BUTONA yazdığınız kodu nasıl atayacağım?

 

[greatkeops]

Hallettim kardeşim, sağolasın

 

[greatkeops]

Bir şey daha sorabilir miyim?
Makro çok güzel çalışıyor; ama bir şey fazla olmuş. I6 hücresini siliyor bu yazdığımız makro (ben öyle istemiştim) Silmemesi daha iyiymiş. Aktarma işini yaptıktan sonra I6 hücresini silmeyebilir mi?
Bir diğer soru da şu: Aynı verileri normalde "verigiriş" adlı çalışma sayfasından "-" adlı çalışma sayfasına yazdığım hücrelere göre aktarıyorduk. "-a" adlı çalışma sayfasına aktarmak istersek makroda yazılı olan "-" ifadelerini "-a" olarak değiştirmek yeterli mi?