Hücre Değeri Büyükse Makro Çalışsın

[yorum.halil]

Arkadaşlar örnek dosyada personel maaşları ile ilgili bir dosya var. Burada sizden ricam şudur.

Eğer personel maaşı 1'den büyükse normal şu an olduğu gibi makro çalışsın. Fakar rakam sıfırsa "YAZDIRILACAK MAAŞ BULUNAMADI" gibi bir uyarı verilmesini istiyorum.

Birde msgbox başlığında Microsoft Excel yazıyor. Acaba buraya "DİKKAT" yazdırmak mümkün mü. Denedim denedim ben yapamadım. Şimdiden tşk.

 

[hsayar]

işinizi görür....

Sub YEVMIYE()
With Worksheets("MAAS")
  If .Range("T16").Value > 0 Then
    sayfa = .Range("T16").Value
    durum = .Range("W16").Value
    defter = .Range("J16").Value
    adi = Worksheets("MAAS").Range("T7").Value
    If MsgBox("" & adi & "  ( " & sayfa & " " & durum & " " & defter & " ) " & vbCrLf & "" & vbCrLf & "İŞLEMİ ONAYLIYOR MUSUNUZ ?", vbYesNo) = vbNo Then Exit Sub
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    .Select
  Else
    MsgBox "Yazdırılacak sayfa yok"
  End If
End With
End Sub

 

[yorum.halil]

Üstadım eline sağlık güzel olmuş fakat bir ricam daha olacak sakıncası yoksa. Msgbos başlığında Microsoft Excel Yazıyor. Bunu "dikkat şeklinde değiştirebilirmiyiz acaba..

İkinci bir sorumda şu daha doğrusu sizin kodlara bir alternatif. Eğer belirtilen hücrede rakam yoksa YAZDIR Butonu gizli olacak varsa normal şekilde kalacak. Bu mümkünmü acaba...

 

[hsayar]

MsgBox "Yazdırılacak sayfa yok",16,"Dikkat!"

 

[yorum.halil]

If MsgBox("" & adi & " ( " & sayfa & " " & durum & " " & defter & " ) " & vbCrLf & "" & vbCrLf & "İŞLEMİ ONAYLIYOR MUSUNUZ ?", vbYesNo) = vbNo Then Exit Sub

Üstad buna nasıl ekleriz eklediğimiz zaman mesaj çıkıyor fakat bu seferde makroda sorun oluyor

 

[hsayar]

Sub YEVMIYE()
With Worksheets("MAAS")
  If .Range("T16").Value > 0 Then
    sayfa = .Range("T16").Value
    durum = .Range("W16").Value
    defter = .Range("J16").Value
    adi = Worksheets("MAAS").Range("T7").Value
    If MsgBox("" & adi & "  ( " & sayfa & " " & durum & " " & defter & " ) " & vbCrLf & "" & vbCrLf & "İŞLEMİ ONAYLIYOR MUSUNUZ ?", vbYesNo) = vbNo Then Exit Sub
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    .Select
  Else
    MsgBox "Yazdırılacak sayfa yok", 16, "DİKKAT!"
  End If
End With
End Sub

 

[yorum.halil]

If MsgBox("" & adi & " ( " & sayfa & " " & durum & " " & defter & " ) " & vbCrLf & "" & vbCrLf & "İŞLEMİ ONAYLIYOR MUSUNUZ ?", vbYesNo) = vbNo Then Exit Sub

Üstad kod buraya eklenecek. Yani rakam olduğu zaman yazdırma işlemi yapan mesaja... İkinci mesaja değil

 

[hsayar]

If MsgBox("" & adi & " ( " & sayfa & " " & durum & " " & defter & " ) " & vbCrLf & "" & vbCrLf & "İŞLEMİ ONAYLIYOR MUSUNUZ ?", vbYesNo, "DİKKAT") = vbNo Then Exit Sub

 

[yorum.halil]

Arkadaşım sağol bu sefer oldu.... Tşk...

Birde son kez bir şey soracağım

If .Range("T16").Value > 0 Then

buradaki formulü T15 den büyükse ve t16 dan küçükse olacak şekilde nasıl ayarlarız..

 

[hsayar]

If .Range("T15").Value > 0 and .Range("T16").Value < 0 Then