Yazdır Komutu

[OzNvl]

Merhaba Hocalarım,

Personeller için sokağa çıkma yasağında görevlendirme yazısı ile çalışma izni veriliyor.

Bunun için çalışan tüm personeller için tek tek GÖREVLENDİRME BELGESİ vermem lazım. Listedeki tüm personelleri tek bir yazdır komutu ile yazdırma ihtimali var mı.

Açıklama detayı örnek çalışma içerisindedir.

 

[muysun35]

harici bir dosya barındırma sitesine örnek dosyayı yükleyebilirseniz yardımcı olmaya çalışayım.

 

[OzNvl]

harici bir dosya barındırma sitesine örnek dosyayı yükleyebilirseniz yardımcı olmaya çalışayım.

İndir Geçici Görevlendirme Belgeleri

Dosyayı indir Geçici Görevlendirme Belgeleri

dosya.co

 

[muysun35]

Sub belirt()
Dim adi As String, kimlikno As Integer, isyeri As Variant, veri As Variant, sorgu As Variant
Dim s1 As Worksheet, s2 As Worksheet, son As Long, cvp As Integer
Set s1 = Sheets("Görevlendirme Belgesi")
Set s2 = Sheets("Personel Bilgileri")
sorgu = s1.Range("D5")
son = s1.Range("A65536").End(xlUp).Row
s1.Range("D10") = s1.Range("G27")
s1.Range("D15") = s1.Range("B27")
For i = 2 To son
For Each sorgu In s2.Range("A2:A" & Range("A65536").End(xlUp).Row)
If Not sorgu Is Nothing Then
s1.Range("D10") = sorgu.Offset(i, 1)
s1.Range("D15") = sorgu.Offset(i, 2)
cvp = MsgBox(sorgu & "kişisi için form yazdırmak İstiyor Musunuz?", vbQuestion + vbYesNo + vbDefaultButton2, "İzin Formu")
If cvp = vbYes Then
Application.Dialogs(9).Show
Application.ScreenUpdating = True
ActiveSheet.PrintOut
ElseIf cvp = vbNo Then
GoTo 10
End If
End If
Next
10: Next i
End Sub

Dener misiniz?

 

[muysun35]

Dosyayı buradan indirebilirsiniz.. Düzenlemeler yaptım. 4 nolu mesajı dikkate almayın

Geçici Görevlendirme Belgeleri.xlsm - 33 KB

 

[OzNvl]

Hocam yazdırma işlemleri evet doğru ancak döngü bir türlü durmuyor

en başa dönüyor ve iptal edemiyorum.

kodlardan cvp=vbNo then kısmından sonra döngüyü bitir dedim ancak hala olmuyor :/

 

[OzNvl]

deniyorum hocam aynı zamanda yazmışız

 

[muysun35]

yaptığı işlem şu, personel adı ve çalışıtğı şirket kısımları sırayla değişiyor. diğer alanlarda değişiklik yapılacaksa (görev başlangıcı bitişi vs) o zaman kodlamayı değiştirmemiz gerekecek..

Bu şekilde bir sonraki personele geçiyor, tc sini ve çalıştığı şirketi güncelliyor ve yazdırayım mı diyor, yazdırma ya da yazdırmama işleminden sonra bir sonraki personel bilgilerini gerekli hücrelere atıp yeniden soruyor, seklinde devam ediyor döngü...

 

[muysun35]

tek bir yazdır komutu ile yazdırma

kısmını görünce bu şekilde bir döngü kurdum açıkçası.

 

[OzNvl]

Teşekkür ederim hocam gayet güzel çalıştı. hayır seçeneğinde diğer sorguları bitirip ondan sonra işlemi sonlandırıyor. emeğinize sağlık

 

[muysun35]

Teşekkür ederim hocam gayet güzel çalıştı. hayır seçeneğinde diğer sorguları bitirip ondan sonra işlemi sonlandırıyor. emeğinize sağlık

rica ederim. iyi çalışmalar.