Soru Çoklu sütunda çift tık ile veri yazdırma

[sirkülasyon]

D5:Z50 Arasında çift tık ile
birinci işlemde : "Görevli"
İkinci İşlemde : "İdari İzinli"
Üçüncü İşlemde : "e-Raporlu"
nasıl yazdırabilirim?

 

[YUSUF44]

Aşağıdaki sayfa kodlarını kullanabilirsiniz:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D5:Z50]) Is Nothing Then Exit Sub
If Target = "Görevli" Then
    Target = "İdari İzinli"
ElseIf Target = "İdari İzinli" Then
    Target = "e-Raporlu"
Else
    Target = "Görevli"
End If
End Sub

 

[sirkülasyon]

Yusuf Abi Sağ Olasın