Buton yardımıyla başka sayfaya veri aktarma ???

[onur_8891]

Arkadaşlar acil yardımlarınızı bekliyorum... yarına kadar bu tabloyu hazırlamam gerekiyor. hazırlamış olduğum tabloda ki bilgileri butona tıkladığımda o sayfaya bilgileri aktarmış olsun ve hemen o sayfayı açsın... Arkadaşlar dosya önemli bir dosya bayisi olduğumu şirkete rapor yolluyoruz o yüzden hassasiyetini belirtmek isterim... siz mesaj attığınızda size hemen dosyayı yollayacağım ben şuanda sürekli forumda olucam...

ŞİMDİNDEN HERKESE YARDIMLARINDAN DOLAYI TEŞEKKÜR EDERİM...

 

[Orion1]

Arkadaşlar acil yardımlarınızı bekliyorum... yarına kadar bu tabloyu hazırlamam gerekiyor. hazırlamış olduğum tabloda ki bilgileri butona tıkladığımda o sayfaya bilgileri aktarmış olsun ve hemen o sayfayı açsın... Arkadaşlar dosya önemli bir dosya bayisi olduğumu şirkete rapor yolluyoruz o yüzden hassasiyetini belirtmek isterim... siz mesaj attığınızda size hemen dosyayı yollayacağım ben şuanda sürekli forumda olucam...

ŞİMDİNDEN HERKESE YARDIMLARINDAN DOLAYI TEŞEKKÜR EDERİM...

Asıl bilgilerden olmayan örnek dosyanzı yolayın.2003 formatında olumasına dikkat edin.Bir sürü yardım edicek arkadal olacaktır.

 

[onur_8891]

Evren bey merhaba

nasılsınız... daha önceki tablomdada bana siz yardımcı olmuştunuz. evren bey bu dosyayı size daha önce yollamıştım fakat bir garanti belgesi modülü ekledim size dosyayı yollasam yardımcı olabilirmisiniz...

 

[onur_8891]

C:\Documents and Settings\pc\Desktop\DENEME

 

[onur_8891]

Evren bey merhaba

nasılsınız... daha önceki tablomdada bana siz yardımcı olmuştunuz. evren bey bu dosyayı size daha önce yollamıştım fakat bir garanti belgesi modülü ekledim size dosyayı yollasam yardımcı olabilirmisiniz...[/enver bey dosyanın linkini size gönderdim. yardım edebilirseniz sevinirim..

 

[onur_8891]

Arkadaşlar yardımlarınızı bekliyorum... Tabloyu açtığınızda orada daha net açıklayıcı notlar var...

 

[onur_8891]

Koskoca formda yardım edecek kimse yok mu????

 

[Orion1]

Dosyanız ektedir.
Aktarmak istediğiniz ismin üstüne çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B162:B" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
Cancel = True
If Target.Row < 162 Then Exit Sub
With Sheets("Form")
    .Unprotect
    .Range("F7").Value = Target.Value
    .Range("F9").Value = Cells(Target.Row, "E").Value
    .Range("F13").Value = Cells(Target.Row, "M").Value
    .Range("F17").Value = Cells(Target.Row, "N").Value
    .Range("F21").Value = Cells(Target.Row, "O").Value
    .Range("F23").Value = Cells(Target.Row, "I").Value
    .Range("F24").Value = Cells(Target.Row, "J").Value
    .Range("F25").Value = Cells(Target.Row, "K").Value
    .Range("F26").Value = Cells(Target.Row, "L").Value
    .Protect
End With

End Sub

 

[onur_8891]

çok teşekkür ederim gine harikalar yaratmışsınız...

 

[Orion1]

çok teşekkür ederim gine harikalar yaratmışsınız...

Rica ederim.
İyi çalışmalar.