Sayfaya aktar

Ahmet Sami

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
397
Excel Vers. ve Dili
microsoft office 2007-2010-2013-2019-2021
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.
 

Ekli dosyalar

Mahmut Kök

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
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.)

Kod:
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
Kod:
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

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
397
Excel Vers. ve Dili
microsoft office 2007-2010-2013-2019-2021
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

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
Teşekkürler. Ekleme kodunun sonuna:
Kod:
MsgBox (s1.Range("E9").Value & " Sayfasına veri eklendi")
Silme kısmının sonuna:
Kod:
MsgBox (s1.Range("E9").Value & " Sayfasından veri silindi")
 

Ahmet Sami

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
397
Excel Vers. ve Dili
microsoft office 2007-2010-2013-2019-2021
Teşekkür ederim
 
Üst