Soru Excelde Seçili Satırı İstenilen Formatta Yazdırma

[bilal5412]

Merhaba ;

Aşağıdaki bağlantıda bulunan çalışma dosyasında Form ve Çıktı Formu olarak 2 sayfa vardır. Form sayfası verilerin bulunduğu sayfadır. Çıktı formu ise; yazıcıdan çıktı almak istediğim formatı içeren sayfadır.
Form sayfasındaki numaralandırdığım alanları Çıktı formundaki ilgili alanlara (numara ile belirttiğim) otomatik olarak nasıl aktarabilirim. Yani Form sayfasındaki seçili satır otomatik Çıktı formdaki formata uygun yazıcıdan nasıl çıktı alabilirim.

https://drive.google.com/file/d/1DA-pD8B7BehHj3g7C2iVKtabfUfs77l5/view?usp=sharing

Hayırlı Cumalar;
Hayırlı Günler;

 

[turist]

Aşağıdaki kodları VBA Editöründe FORM sayfasına yazıp deneyin.
Form sayfasında Satırlara ÇİFT TIKLAMA yaptığınızda ÇIKTI FORMU sayfanızda ilgili bölümlere o satırdaki veriler aktarılmış olacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s1 As Worksheet: Set s1 = Sheets("ÇIKTI FORMU")
s1.Range("D5").Value = Target.Value
s1.Range("D6").Value = Target.Offset(0, 8).Value
s1.Range("G6").Value = Target.Offset(0, 9).Value
s1.Range("D7").Value = Target.Offset(0, 10).Value
s1.Range("D8").Value = Target.Offset(0, 4).Value
s1.Range("D9").Value = Target.Offset(0, 11).Value
s1.Range("D10").Value = Target.Offset(0, 1).Value
s1.Range("M5").Value = Target.Offset(0, 2).Value
s1.Range("M6").Value = Target.Offset(0, 3).Value
s1.Select
End Sub

 

[bilal5412]

Aşağıdaki kodları VBA Editöründe FORM sayfasına yazıp deneyin.
Form sayfasında Satırlara ÇİFT TIKLAMA yaptığınızda ÇIKTI FORMU sayfanızda ilgili bölümlere o satırdaki veriler aktarılmış olacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s1 As Worksheet: Set s1 = Sheets("ÇIKTI FORMU")
s1.Range("D5").Value = Target.Value
s1.Range("D6").Value = Target.Offset(0, 8).Value
s1.Range("G6").Value = Target.Offset(0, 9).Value
s1.Range("D7").Value = Target.Offset(0, 10).Value
s1.Range("D8").Value = Target.Offset(0, 4).Value
s1.Range("D9").Value = Target.Offset(0, 11).Value
s1.Range("D10").Value = Target.Offset(0, 1).Value
s1.Range("M5").Value = Target.Offset(0, 2).Value
s1.Range("M6").Value = Target.Offset(0, 3).Value
s1.Select
End Sub

Teşekkürler. Çok sağolun.

 

[bilal5412]

Aşağıdaki kodları VBA Editöründe FORM sayfasına yazıp deneyin.
Form sayfasında Satırlara ÇİFT TIKLAMA yaptığınızda ÇIKTI FORMU sayfanızda ilgili bölümlere o satırdaki veriler aktarılmış olacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s1 As Worksheet: Set s1 = Sheets("ÇIKTI FORMU")
s1.Range("D5").Value = Target.Value
s1.Range("D6").Value = Target.Offset(0, 8).Value
s1.Range("G6").Value = Target.Offset(0, 9).Value
s1.Range("D7").Value = Target.Offset(0, 10).Value
s1.Range("D8").Value = Target.Offset(0, 4).Value
s1.Range("D9").Value = Target.Offset(0, 11).Value
s1.Range("D10").Value = Target.Offset(0, 1).Value
s1.Range("M5").Value = Target.Offset(0, 2).Value
s1.Range("M6").Value = Target.Offset(0, 3).Value
s1.Select
End Sub

Merhaba, yeni bir soru olarak başka hücrelerde çift tıklama yaptığımda dahi kod çalışmaya başlıyor. Bu yüzden bu çift tıklama sadece "A" sütunu için geçerli olması için yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Dim s1 As Worksheet: Set s1 = Sheets("ÇIKTI FORMU")
s1.Range("D5").Value = Target.Value
s1.Range("D6").Value = Target.Offset(0, 8).Value
s1.Range("G6").Value = Target.Offset(0, 9).Value
s1.Range("D7").Value = Target.Offset(0, 10).Value
s1.Range("D8").Value = Target.Offset(0, 4).Value
s1.Range("D9").Value = Target.Offset(0, 11).Value
s1.Range("D10").Value = Target.Offset(0, 1).Value
s1.Range("M5").Value = Target.Offset(0, 2).Value
s1.Range("M6").Value = Target.Offset(0, 3).Value
s1.Select
End Sub

 

[bilal5412]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Dim s1 As Worksheet: Set s1 = Sheets("ÇIKTI FORMU")
s1.Range("D5").Value = Target.Value
s1.Range("D6").Value = Target.Offset(0, 8).Value
s1.Range("G6").Value = Target.Offset(0, 9).Value
s1.Range("D7").Value = Target.Offset(0, 10).Value
s1.Range("D8").Value = Target.Offset(0, 4).Value
s1.Range("D9").Value = Target.Offset(0, 11).Value
s1.Range("D10").Value = Target.Offset(0, 1).Value
s1.Range("M5").Value = Target.Offset(0, 2).Value
s1.Range("M6").Value = Target.Offset(0, 3).Value
s1.Select
End Sub

Teşekkürler.

 

[bilal5412]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Dim s1 As Worksheet: Set s1 = Sheets("ÇIKTI FORMU")
s1.Range("D5").Value = Target.Value
s1.Range("D6").Value = Target.Offset(0, 8).Value
s1.Range("G6").Value = Target.Offset(0, 9).Value
s1.Range("D7").Value = Target.Offset(0, 10).Value
s1.Range("D8").Value = Target.Offset(0, 4).Value
s1.Range("D9").Value = Target.Offset(0, 11).Value
s1.Range("D10").Value = Target.Offset(0, 1).Value
s1.Range("M5").Value = Target.Offset(0, 2).Value
s1.Range("M6").Value = Target.Offset(0, 3).Value
s1.Select
End Sub

Merhaba, son olarak Target.offset (0,8) yazdığını bu komutta 8 neyi ifade ediyor. Ben bu uyarlamayı başka çalışmalara nasıl uyarlayabilirim.

 

[turist]

İşlem yaptığınızda ÇİFT TIK yaptığınız HEDEF hücre = Target
Target.Offset(0,8)= Çift Tık yapılan Hücre(Target)'nin aynı satırında (0) ve 8 sütun sağında.( - 8 olsaydı 8 sütun solunda olacaktı)
Offset=Kaydır

 

[bilal5412]

İşlem yaptığınızda ÇİFT TIK yaptığınız HEDEF hücre = Target
Target.Offset(0,8)= Çift Tık yapılan Hücre(Target)'nin aynı satırında (0) ve 8 sütun sağında.( - 8 olsaydı 8 sütun solunda olacaktı)
Offset=Kaydır

Çok teşekkürler. Çok sağolun.

 

[bilal5412]

İşlem yaptığınızda ÇİFT TIK yaptığınız HEDEF hücre = Target
Target.Offset(0,8)= Çift Tık yapılan Hücre(Target)'nin aynı satırında (0) ve 8 sütun sağında.( - 8 olsaydı 8 sütun solunda olacaktı)
Offset=Kaydır

Merhaba; aşağıdaki kod ilgili hücredeki değeri getiriyor. Hücredeki biçimi getirebilir mi ? Yani ben hücrede isteğe bağlı biçimlendirme yaptım # "adet" gibi. bu biçimlendirmeyi de nasıl getirebilirim. Aynı zamanda ilgili hücredeki resmi nasıl getirebilirim. Saygılar

s1.Range("D9").Value = Target.Offset(0, 11).Value

ve farklı bir soru daha aşağıdaki hedeflerin hangisinde veri var ise o veriyi D9 a getirebilir mi? (İlk olarak aklıma gelmeyen bir soru idi)
s1.Range("D9").Value = Target.Offset(0, 10).Value
s1.Range("D9").Value = Target.Offset(0, 9).Value
s1.Range("D9").Value = Target.Offset(0, 11).Value