diğer sayfadan veri çekme :yardim:

[yusuf_oylan]

şimdiden yardımlarınız için teşekürler
benim bir excel de yazdığım müşteri bilgilerim var bu müşteri bilgilerinden alarak sözleşmenin içerisinde bazı yerlere atmasını istiyorum = komutuyla sadece 1 tek müşterinin sözleşmesi oluyor ben sadece sözleşmeyi bilgileriyle birlikte bir kereye mahsus print yapmak istiyorum 30 taneden fazla var ve daha da artacak her müşteriye birer activex buton vasıtasıyla nasıl bilgilerini sözleşmeye gönderebilirim
ekte bir örnek var sözleşmenin içeriğine nasıl atabilrim bilgilerini (sadece kısa bir kısmını attım sözleşmenin)

 

[dEdE]

Merhaba,
Forumumuza hoşgeldiniz.
Aşağıdaki kodları örnek dosyanızda bir modüle yapıştırarak dener misiniz?
Kodlar müşteri sayfasının A sütununda çift tıkladığınız satırdaki bilgileri sözleşme sayfasına aktarır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Set s1 = Sheets("müşteri")
    Set s2 = Sheets("sözleşme")
    s2.[B6] = s1.Cells(Target.Row, 2).Value
    s2.[B7] = s1.Cells(Target.Row, 4).Value
    s2.[B16] = "1 (bir ) YIL  Başlangıç Tarihi: " & s1.Cells(Target.Row, 8).Value & _
                " Bitiş Tarihi: " & s1.Cells(Target.Row, 9).Value
End Sub

 

[yusuf_oylan]

Merhaba,
Forumumuza hoşgeldiniz.
Aşağıdaki kodları örnek dosyanızda bir modüle yapıştırarak dener misiniz?
Kodlar müşteri sayfasının A sütununda çift tıkladığınız satırdaki bilgileri sözleşme sayfasına aktarır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Set s1 = Sheets("müşteri")
    Set s2 = Sheets("sözleşme")
    s2.[B6] = s1.Cells(Target.Row, 2).Value
    s2.[B7] = s1.Cells(Target.Row, 4).Value
    s2.[B16] = "1 (bir ) YIL  Başlangıç Tarihi: " & s1.Cells(Target.Row, 8).Value & _
                " Bitiş Tarihi: " & s1.Cells(Target.Row, 9).Value
End Sub

Merhaba
öncelikle cevabınız için teşekürler
bir modül oluşturdum kodu kullandığımda makro adı istiyor bunu nasıl yapabilirim bir isim yazdığımda ise yeni bir sub satırı başlıyor ve yazılan kodu kabul etmiyor rica etsem benim dosyamın üzerinde yapabilirmisiniz

 

[dEdE]

Merhaba,
Yanlış bilgilendirme için özür dilerim. Yanlışlıkla "..bir modüle yapıştırarak ..." demişim.
Modüle değil müşteri sayfasının kod bölümüme yapıştırın.

 

[yusuf_oylan]

Merhaba,
Yanlış bilgilendirme için özür dilerim. Yanlışlıkla "..bir modüle yapıştırarak ..." demişim.
Modüle değil müşteri sayfasının kod bölümüme yapıştırın.

teşekürler ilginiz için şuan oldu