***********************************************
Sub Düğme17_Tıklat()
Dim s1, s2
Dim sat
Set s1 = Sheets("İZİN BİLGİ")
Set s2 = Sheets("Data")
'**********************************************
If s1.Range("e4") = "YILLIK" Then
If MsgBox("Bilgiler Kaydedilsin mi?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbYes Then
sat = WorksheetFunction.Match(s1.Range("E3"), s2.Range("b1:b100"), 0)
izin1 = s2.Cells(sat, "e").Value - s1.Range("e16").Value
If izin1 < 0 Then
s2.Cells(sat, "e").Value = 0
izin2 = Abs(izin1)
izin3 = s2.Cells(sat, "f").Value - izin2
If izin3 < 0 Then
MsgBox s1.Range("e3").Value & " adlı kişinin yeterli izin bakiyesi bulunmamaktadır.", vbInformation, "UYARI"
GoTo son
Else
s2.Cells(sat, "f").Value = izin3
End If
Else
s2.Cells(sat, "e").Value = izin1
End If
MsgBox s1.Range("e3").Value & " adlı kişinin bilgileri kaydedildi.", vbInformation, "UYARI"
End If
End If
ActiveSheet.PageSetup.PrintArea = "$A$3:$N$27"
ActiveWindow.SelectedSheets.PrintOut
son:
Set s1 = Nothing
Set s2 = Nothing
End Sub
***************************************
Yukarıda uzman Recep İPEKİn hazırlamış olduğu kod için yardıma ihtiyacım var..... Problem kod çalıştıktan sonra yazıcıdan çıktı alıyorum.... Ama benim istediğim, önce yazıcıdan çıktı alıp kodun devreye girmesini istiyorum...
Sub Düğme17_Tıklat()
Dim s1, s2
Dim sat
Set s1 = Sheets("İZİN BİLGİ")
Set s2 = Sheets("Data")
'**********************************************
If s1.Range("e4") = "YILLIK" Then
If MsgBox("Bilgiler Kaydedilsin mi?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbYes Then
sat = WorksheetFunction.Match(s1.Range("E3"), s2.Range("b1:b100"), 0)
izin1 = s2.Cells(sat, "e").Value - s1.Range("e16").Value
If izin1 < 0 Then
s2.Cells(sat, "e").Value = 0
izin2 = Abs(izin1)
izin3 = s2.Cells(sat, "f").Value - izin2
If izin3 < 0 Then
MsgBox s1.Range("e3").Value & " adlı kişinin yeterli izin bakiyesi bulunmamaktadır.", vbInformation, "UYARI"
GoTo son
Else
s2.Cells(sat, "f").Value = izin3
End If
Else
s2.Cells(sat, "e").Value = izin1
End If
MsgBox s1.Range("e3").Value & " adlı kişinin bilgileri kaydedildi.", vbInformation, "UYARI"
End If
End If
ActiveSheet.PageSetup.PrintArea = "$A$3:$N$27"
ActiveWindow.SelectedSheets.PrintOut
son:
Set s1 = Nothing
Set s2 = Nothing
End Sub
***************************************
Yukarıda uzman Recep İPEKİn hazırlamış olduğu kod için yardıma ihtiyacım var..... Problem kod çalıştıktan sonra yazıcıdan çıktı alıyorum.... Ama benim istediğim, önce yazıcıdan çıktı alıp kodun devreye girmesini istiyorum...