Çift tıklama ile yazdır makrosu

[zozotr]

Üstadlar Selamlar ve iyi akşamlar,

Acizane durumda nacizane fikirlerinize ihtiyacım var.

Eklediğim resimde talebimi yazdım.

Saygılar
İyi Akşamlar.

 

[Emir Hüseyin Çoban]

. . .

Yazdır butonunda kullandığınız kodlar nedir..

. . .

 

[zozotr]

Hocam kodlar aşağıdaki gibidir:

Sub YAZREG()
   Sheets("Reg").Visible = True
   Worksheets("Reg").PrintOut Copies:=1, Collate:=True
   Sheets("Reg").Visible = False
  End
  
  With KAYDET
  ThisWorkbook.Save
  End With
  
  
End Sub

 

[Emir Hüseyin Çoban]

. . .

Satır boyama işlemi için koşullu biçimlendirme kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Intersect(Target, [AG3:AG100]) Is Nothing Then Exit Sub
    Range("U1") = Cells(Target.Row, "A")
    Target.Value = "Yazdırıldı"
    Call YAZREG
End Sub

. . .

 

[zozotr]

Üstadım çok teşekkür ederim.

Verdiğiniz kod gayet sağlıklı çalışıyor.
Sorumda bir ricam daha vardı. Yazdırıldı yazdıktan sonra hücreyi sarıya boyaması idi.
Bu konuda da yardımcı olursanız sevinirim.

Saygılar

 

[Emir Hüseyin Çoban]

. . .

Şu kodu bir kez çalıştırın. Daha sonra çift tıklama işlemi yaparak sonucu gözlemleyin.

Sub Makro_1()

    Range("A3:AG100").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$AG3=""Yazdırıldı"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
End Sub

. . .

 

[zozotr]

Sayın Hüseyin Üstadım.

Kod için çok teşekkür ederim.
Ayrıca sonradan aklıma gelen Koşullu Biçimlendirme ile de istediğimi yapabiliyorum.

Emeğinize sağlık.

Saygılar