Resmi yazılara paraf ekleme

[yyhy]

Resmi yazılara paraf ekleyebiliriz? Yardımcı olan arkadaşlara teşekkür ederim.

 

[YUSUF44]

Paraflar eklenecek ve kaldırılacak da nereye eklenip nereden kaldırılacak?

 

[yyhy]

Renkli hücrenin sağındakiler renkli hücrenin solundaki hücrelere

Renkli hücrenin sağındakiler renkli hücrenin solundaki hücrelere yani; G5 hücresindeki C5 hücresine, H5 hücresindeki D5 hücresine, I5 hücresindeki G5 hücresine,G6 hücresindeki C6 hücresine, H6 hücresindeki D6 hücresine, I6 hücresindeki G6 hücresine tık işareti koyunca geçmesini istiyorum.

 

[YUSUF44]

Aşağıdaki kodları kullanabilirsiniz:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("G5:I6").Select
    Selection.Copy
    Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C5").Select
    Application.CutCopyMode = False
    Else
    If CheckBox1 = False Then
    Range("c5:e6").ClearContents
    End If
    End If
End Sub

 

[yyhy]

Teşekkürler, emeğinize sağlık.

Sayın YUSUF44 teşekkür ederiz. Elleriniz dert görmesin, iyi çalışmalar.