Sayfaya aktar

[Ahmet Sami]

Kıymetli abilerim sizden istediğim yardım. E9 hücresindeki açılır kutudan hangi sayfayı seçersem aşağıdaki verileri o sayfaya aktarmasını istiyorum. Ayrıca aktarılan sayfaya yanlış aktarmış olursam hangi sayfayı seçersem o sayfadan en son kayıtı silebilmek istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[Mahmut Kök]

Aşağıdaki kodları kullanabilirsiniz. (Basit bir kopyala yapıştır mantığıyla yaptım ama hücre değerlerini aktararak da yapabilirsiniz. Bu şekliyle de işinizi görür umarım.)

Sub Ekle()

Application.ScreenUpdating = False
Set s1 = Sheets("ANASAYFA")
Set s2 = Sheets(s1.Range("E9").Value)
Dim sonsat
sonsat = s2.Range("A65536").End(3).Row + 1


    s1.Range("E10:E18").Copy
    s2.Cells(sonsat, "A").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    
    Application.CutCopyMode = False
Application.ScreenUpdating = False

End Sub

Sub Sil()

Application.ScreenUpdating = False
Set s1 = Sheets("ANASAYFA")
Set s2 = Sheets(s1.Range("E9").Value)
Dim sonsat
sonsat = s2.Range("A65536").End(3).Row


    s2.Rows(sonsat).ClearContents
    
 
Application.ScreenUpdating = False

End Sub

 

[Ahmet Sami]

Mahmut bey teşekkür ederim. Bir ricamda Aktarıldı veya silindi gibi bir mesaj alabilir miyim. Aktardığında veya sildiğinde butona basıp basmadığımı bilemiyorum. Yalnız MsgBox'ta hangi sayfaya aktarılıyorsa veya hangi sayfadan siliniyorsa onuda belirtmesi çok işime yarar.

 

[Mahmut Kök]

Teşekkürler. Ekleme kodunun sonuna:

MsgBox (s1.Range("E9").Value & " Sayfasına veri eklendi")

Silme kısmının sonuna:

MsgBox (s1.Range("E9").Value & " Sayfasından veri silindi")

 

[Ahmet Sami]

Teşekkür ederim