Sayfadaki bilgileri sayfa2 de alt alta yazmak

[press_ok]

Merhaba;

Excel dosyamın ilk sayfasında bir form var. Bu forma bilgiler girip kaydet butonuna tıkladığımda, bu bilgilerin sayfa2 deki ilgili yerlere kaydolmasını istiyorum. Sayfa1 deki forma her kaydet deyişimde sayfa2 de bir alt satıra kaydolmalı ama kaydolurken A1 ID satırındaki sayı her bilgi kaydoluşunda 1 artmalı çünkü Sayfa2 deki bilgiler firmamızın localinde çalışan bir asp tabanlı sitede veritabanı olarak kullanılıyor.

Sitedeki örnekleri inceledim ama hücreler yanyana olmadığı için örnekleri kendime uyarlayamadım. Bu yazdıklarıma benzer örneği olan varmı bakarak kendime uyarlarım.

Çalışma ekte, İlginiz ve desteğiniz için şimdiden teşekkürler.

 

[halit3]

Merhaba;

Excel dosyamın ilk sayfasında bir form var. Bu forma bilgiler girip kaydet butonuna tıkladığımda, bu bilgilerin sayfa2 deki ilgili yerlere kaydolmasını istiyorum. Sayfa1 deki forma her kaydet deyişimde sayfa2 de bir alt satıra kaydolmalı ama kaydolurken A1 ID satırındaki sayı her bilgi kaydoluşunda 1 artmalı çünkü Sayfa2 deki bilgiler firmamızın localinde çalışan bir asp tabanlı sitede veritabanı olarak kullanılıyor.

Sitedeki örnekleri inceledim ama hücreler yanyana olmadığı için örnekleri kendime uyarlayamadım. Bu yazdıklarıma benzer örneği olan varmı bakarak kendime uyarlarım.

Çalışma ekte, İlginiz ve desteğiniz için şimdiden teşekkürler.

Bunu denermisiniz.?

Sub taşı()
sat = Worksheets("SAFYA2").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("SAFYA2").Cells(sat, 1).Value = sat - 1
Sheets("SAFYA2").Cells(sat, 2).Value = Sheets("SAYFA").Cells(4, "M").Value
Sheets("SAFYA2").Cells(sat, 3).Value = Sheets("SAYFA").Cells(2, "M").Value
Sheets("SAFYA2").Cells(sat, 4).Value = Sheets("SAYFA").Cells(3, "M").Value
Sheets("SAFYA2").Cells(sat, 5).Value = Sheets("SAYFA").Cells(5, "M").Value
Sheets("SAFYA2").Cells(sat, 6).Value = Sheets("SAYFA").Cells(6, "M").Value
Sheets("SAFYA2").Cells(sat, 7).Value = Sheets("SAYFA").Cells(7, "M").Value
Sheets("SAFYA2").Cells(sat, 8).Value = Sheets("SAYFA").Cells(8, "n").Value
Sheets("SAFYA2").Cells(sat, 9).Value = Sheets("SAYFA").Cells(9, "n").Value
Sheets("SAFYA2").Cells(sat, 10).Value = Sheets("SAYFA").Cells(10, "n").Value
Sheets("SAFYA2").Cells(sat, 11).Value = Sheets("SAYFA").Cells(11, "n").Value
Sheets("SAFYA2").Cells(sat, 12).Value = Sheets("SAYFA").Cells(1, "AZ").Value
Sheets("SAFYA2").Cells(sat, 13).Value = Sheets("SAYFA").Cells(2, "AI").Value
Sheets("SAFYA2").Cells(sat, 14).Value = Sheets("SAYFA").Cells(4, "AJ").Value
Sheets("SAFYA2").Cells(sat, 15).Value = Sheets("SAYFA").Cells(6, "AK").Value
Sheets("SAFYA2").Cells(sat, 16).Value = Sheets("SAYFA").Cells(8, "AJ").Value
Sheets("SAFYA2").Cells(sat, 17).Value = Sheets("SAYFA").Cells(9, "AJ").Value
Sheets("SAFYA2").Cells(sat, 18).Value = Sheets("SAYFA").Cells(10, "AM").Value
Sheets("SAFYA2").Cells(sat, 19).Value = Sheets("SAYFA").Cells(2, "AZ").Value
Sheets("SAFYA2").Cells(sat, 20).Value = Sheets("SAYFA").Cells(4, "AZ").Value
Sheets("SAFYA2").Cells(sat, 21).Value = Sheets("SAYFA").Cells(6, "BA").Value
Sheets("SAFYA2").Cells(sat, 22).Value = Sheets("SAYFA").Cells(8, "AZ").Value
Sheets("SAFYA2").Cells(sat, 23).Value = Sheets("SAYFA").Cells(9, "AZ").Value
Sheets("SAFYA2").Cells(sat, 24).Value = Sheets("SAYFA").Cells(10, "AZ").Value
Sheets("SAFYA2").Cells(sat, 25).Value = Sheets("SAYFA").Cells(10, "BB").Value
Sheets("SAFYA2").Cells(sat, 26).Value = Sheets("SAYFA").Cells(10, "BD").Value
MsgBox "İŞLEM TAMAM"
End Sub

 

[press_ok]

Ellerinize sağlık. Adeta Cuk oturdu. Teşekkürlerimi sunuyorum.

 

[halit3]

Ellerinize sağlık. Adeta Cuk oturdu. Teşekkürlerimi sunuyorum.

iyi çalışmalar