Bilgileri sayfalara yazdırma

[maunlu]

Selam Arkadaşlar, bir konuda daha sizlerden yardım istiyorum.

Gelen Hammadde analizlerini takip etmek için bir program hazırladım. verileri belirli bir sayfaya aktarıyor, bunu istediğim sayfaya aktarabilir miyiz. Ekte kısaca anlatmaya çalıştım, yardımcı olursanız sevinirim.


şimdiden teşekkürler...

 

[Civan Jack]

dosyanızı açamıyorum hata verip kendini kapatıyor ama size şunu söyleyebilirim; aktarma kodlarında aktarmak istediğiniz sayfanın adını belirtmelisiniz. yani örneğin sayfa3 e aktaracaksanız cells ya da range satırının başına sheets("sayfa3"). yazmalısınız.

 

[suleyman242]

Selam Arkadaşlar, bir konuda daha sizlerden yardım istiyorum.

Gelen Hammadde analizlerini takip etmek için bir program hazırladım. verileri belirli bir sayfaya aktarıyor, bunu istediğim sayfaya aktarabilir miyiz. Ekte kısaca anlatmaya çalıştım, yardımcı olursanız sevinirim.


şimdiden teşekkürler...

kırmızı :istediğin sayfaya aktarma için sayfa seçimi
mavi : hata durumunda yapması gereken

Private Sub CommandButton1_Click()
   [COLOR="RoyalBlue"][B] On Error GoTo HATA[/B][/COLOR]
    Set kyt = Sheets("veri_giris")
[COLOR="Red"][B]    Set hedef = ThisWorkbook.Worksheets(TextBox8.Value)[/B][/COLOR]
    son = hedef.[A65536].End(3).Row + 1
    hedef.Cells(son, "A").Value = son - 2
    hedef.Cells(son, "B").Value = kyt.[D5].Value
    hedef.Cells(son, "C").Value = kyt.[D6].Value
    hedef.Cells(son, "D").Value = kyt.[D7].Value
    hedef.Cells(son, "E").Value = kyt.[D8].Value
    hedef.Cells(son, "F").Value = kyt.[D9].Value
    hedef.Cells(son, "G").Value = kyt.[D10].Value
    hedef.Cells(son, "H").Value = kyt.[D11].Value
    hedef.Cells(son, "I").Value = kyt.[D12].Value

MsgBox "Veriler başarıyla aktarıldı !", vbInformation
[COLOR="RoyalBlue"][B]GoTo 10
HATA:
MsgBox "Sayfa numarası Geçersiz"
10[/B][/COLOR]
End Sub

 

[maunlu]

Üstadım ellerinize sağlık, tam istediğim gibi oldu.

Çok çok teşekkür ederim.

 

[suleyman242]

Üstadım ellerinize sağlık, tam istediğim gibi oldu.

Çok çok teşekkür ederim.

Rica ederim Kolay gelsin.