User Form İle Girilen Verileri Yazdırmak

[pimking]

Merhaba arkdaşlar burda bir arkdaşın yapöış olduğu bir vba değiştirek kendime göre ayarladım. Ama girdiğim verileri yazdırmak istiyorum ve her veri sayfada varklı farklı alanlara yazdırılması gerekiyor bunla iligi ne yapabilirim yardımlarınız için şimdididen teşekkürler.

Dosyayı ekledim kolay gelsin iyi çalışmlar
Dip Not: Sayfa 2003 göre

 

[mancubus]

YENİ KAYIT'ın altındaki KAYDET butonuna tıklamak yeterli.

YAZDIR butonu için herhangi bir kod yazılmamış. muhtemelen print almak için eklenmiştir.

 

[pimking]

YENİ KAYIT'ın altındaki KAYDET butonuna tıklamak yeterli.

YAZDIR butonu için herhangi bir kod yazılmamış. muhtemelen print almak için eklenmiştir.

yazdır butonunu ben ekledi hocam ben kastetmek istediğimde yazdır dediğimizde yazıcıdan döküm almak hangi sıra numarasın daysak o alanı yazıcıya dökmek ama bur da bir sıkıntıda var yazıcıya dökerken veriler farklı farklı alanlarda ve hepsi dökülmeyecek bunla ilgi bir ufak kod yapa bilirseniz ben ona göre ayarlama yapmaya çalışırım örnek verecek olursak Ad'ı yazarken sayfanın başka bir yerine IMEI yazarken de Farklı bir yere yazması gerekiyor bilmem anlatabildim mi? kolay gelsin ilginize teşekkürler

 

[mancubus]

saçili satırda yan yana olmayan hücreler mi yazdırılacak?

tam olarak tarif lazım. hangi hücreler nasıl yazdırılacak? arada boşluk olacak mı yoksa yan yana getirilerek mi?

dosyaya ayrı bir sayfa ekyerek yazdırılması istenilen format başlıklar ile bilirkte kopyalanır ise yardımcı olur.
1. mesajda güncellenebilir.

 

[pimking]

saçili satırda yan yana olmayan hücreler mi yazdırılacak?

tam olarak tarif lazım. hangi hücreler nasıl yazdırılacak? arada boşluk olacak mı yoksa yan yana getirilerek mi?

dosyaya ayrı bir sayfa ekyerek yazdırılması istenilen format başlıklar ile bilirkte kopyalanır ise yardımcı olur.
1. mesajda güncellenebilir.

hocam girdiğimiz verileri nere ne şekilde yazılacağı daha belirgin hale getirmek için
pdf olarak dosyayı ekledim. Bizim userform da girdiğimiz veriler bu pdf alanlar.

 

[mancubus]

pdf'ten anlamam.
excel dosyası olarak mevcutsa yardımcı olabilirim.

 

[pimking]

olayı biraz daha düzeltim ikinci sayfa dikey ara formülü ile yazılacakları tam yerli yerine ayarladım yalnız form da yazdıra tıkladıklarında yazdırmaalanı sayfasındaki ak1 hüçresine formdaki sıra nosunu atıp yazıcıya direk yazdırabilir miyiz . kolay gelsin yeni haliyle dosyayı ekliyorum

 

[mancubus]

tüm işlem bu ise formüle gerek yok.
hangi kayıt yazdırılacaksa Inputbox'a a kayıtın numarası girilecek.

Private Sub Yazdır_Click()

    Dim wsData As Worksheet, wsYaz As Worksheet
    Dim bul As Range
    Dim KayıtNo
    Dim j As Long
    
    Set wsData = Worksheets("DATABASE")
    Set wsYaz = Worksheets("YazdırmaAlanı")
    
    KayıtNo = Application.InputBox("Yazdırılacak Kayıt Numarasını Giriniz", "KAYIT NO", , , , , , 1)
    
    With wsData.Columns(1)
        Set bul = .Find(What:=KayıtNo, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not bul Is Nothing Then
            j = bul.Row
        Else
            MsgBox "Kayıt Bulunamadı!" & vbCr & "Tekrar Deneyiniz!", vbCritical
            Exit Sub
        End If
    End With
    
    With wsYaz
        .Cells.ClearContents
        .Range("A4").Value = wsData.Range("B" & j).Value
        .Range("C4").Value = wsData.Range("C" & j).Value
        .Range("C13").Value = wsData.Range("D" & j).Value
        .Range("X64").Value = wsData.Range("D" & j).Value
        .Range("E93").Value = wsData.Range("D" & j).Value
        .Range("C14").Value = wsData.Range("E" & j).Value
        .Range("AC64").Value = wsData.Range("E" & j).Value
        .Range("E96").Value = wsData.Range("E" & j).Value
        .Range("C8").Value = wsData.Range("F" & j).Value
        .Range("C7").Value = wsData.Range("G" & j).Value
        .Range("E17").Value = wsData.Range("H" & j).Value
        .Range("E18").Value = wsData.Range("I" & j).Value
        .Range("E20").Value = wsData.Range("J" & j).Value
        .Range("J20").Value = wsData.Range("K" & j).Value
        .Range("L20").Value = wsData.Range("L" & j).Value
        .Range("N20").Value = wsData.Range("M" & j).Value
        .Range("E102").Value = wsData.Range("M" & j).Value
        .Range("E22").Value = wsData.Range("N" & j).Value
        .Range("E24").Value = wsData.Range("O" & j).Value
        .Range("E90").Value = wsData.Range("O" & j).Value
        .Range("E26").Value = wsData.Range("P" & j).Value
        .Range("E28").Value = wsData.Range("Q" & j).Value
        .Range("E99").Value = wsData.Range("Q" & j).Value
        .Range("E30").Value = wsData.Range("R" & j).Value
        .Range("E32").Value = wsData.Range("S" & j).Value
        .Range("A35").Value = wsData.Range("T" & j).Value
        .Range("C38").Value = wsData.Range("U" & j).Value
        .Range("N38").Value = wsData.Range("V" & j).Value
        .Range("C39").Value = wsData.Range("W" & j).Value
        .Range("C41").Value = wsData.Range("X" & j).Value
        .Range("E112").Value = wsData.Range("X" & j).Value
        .Range("G112").Value = wsData.Range("Y" & j).Value
        .Range("C43").Value = wsData.Range("Z" & j).Value
        .Range("C45").Value = wsData.Range("AB" & j).Value
        .Range("C47").Value = wsData.Range("AD" & j).Value
        .Range("I47").Value = wsData.Range("AE" & j).Value
        .Range("X22").Value = wsData.Range("AF" & j).Value
        .Range("X24").Value = wsData.Range("AG" & j).Value
        .Range("O22").Value = wsData.Range("AI" & j).Value
        .Range("X65").Value = wsData.Range("AK" & j).Value
        .Range("T35").Value = "xxxxxx"
        .Range("S143").Value = "X"
        .PrintOut
    End With

End Sub

 

[pimking]

hocam eline sağlık çok güzel olmuş teşekkürler bu örnek le diğer çalışmalarımda artık kullanabilirim

 

[baydeniro]

Sayın mancubus teşekkürler.