• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

B

bilal5412

Katılım
12 Nisan 2011
Mesajlar
190
Excel Vers. ve Dili
2010-TR
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;
 
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.
Kod: 
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
 
turist' Alıntı:
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.
Kod: 
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
Genişletmek için tıkla ...

Teşekkürler. Çok sağolun.
 
turist' Alıntı:
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.
Kod: 
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
Genişletmek için tıkla ...

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.
 
Aşağıdaki gibi deneyiniz.

Kod: 
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
 
Korhan Ayhan' Alıntı:
Aşağıdaki gibi deneyiniz.

Kod: 
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
Genişletmek için tıkla ...
Teşekkürler.
 
Korhan Ayhan' Alıntı:
Aşağıdaki gibi deneyiniz.

Kod: 
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
Genişletmek için tıkla ...
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.
 
İş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
 
turist' Alıntı:
İş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
Genişletmek için tıkla ...
Çok teşekkürler. Çok sağolun.
 
turist' Alıntı:
İş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
Genişletmek için tıkla ...

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
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst