anasayfa girilen verilerin diğerlerine aktarılması

[maras321]

arkadaşlar merhaba elimde bir ceza makbuzu tablosu var ve bu günlük olarak artıyor.diğer sayfalarda teğişik tablolar oluşturmam gerekiyor.yani kısaca il sayfaya girdiğim bilgiler diğer sayfaya aktarılsın yanlız ön sayfa devamlı olarak değişecek biraz karışık oldu sanırım ama ekteki örnek sanırım her şeyi anlatır şimdilen teşekkürler.

 

[maras321]

arkadaşlar lütfen bana bir akıl verin ne yapmam gerkiyor....

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Siz belli bir sütuna kadar belirtmişsiniz. Geri kalan kısmı kendimce düzenledim. Eğer sizin çalışmanızda sütun yerleri farklı ise kodu düzenlemeniz gerekecektir.

 

[Seyit Tiken]

Aşağıdaki kodu çalışmanıza uyarlayınız.

Sub Düğme3_Tıklat()
Sayfa2.[b6500].End(3).Offset(1) = [m1]
Sayfa2.[c6500].End(3).Offset(1) = [m4]
'..........
End Sub

 

[maras321]

Sayın Korhan AYHAN çok teşekkür ederim.

 

[maras321]

Sayın Seyit TİKEN sizede çok teşekkür ederim..

 

[Seyit Tiken]

Gri alanı temizlemek için şöyle bir kod kullanabilirsiniz.

Sub Makro1()
For Each s In [a1:n74]
If s.Interior.ColorIndex = 15 Then
s.Value = vbNullString
End If
Next
End Sub