makroyu görüntüleme ve kaldırma

[temogra]

ıyı gunler makroda yapmış olduğunuz bır işlemi örneğin;

For c=1 to 56
Cells(c,1).value=c
Cells(c,1).interior.colorindex=c
Next
End Sub

boyle bir işlemi bir kere tıklayınca getırtebılıyorsak bir kez daha tıklarsak sayfadan kaldırabılırmıyız ve bu sekılde devam ettırebılırmıyız tşk .

 

[Levent Menteşoğlu]

Yukarıdaki kodlarınızı aşağıdaki gibi düzenlerseniz istediğiniz olacaktır.

[vb:1:ea192e4c8c]Dim a As Integer
Sub makro()
If a = 1 Then
Columns("A").ClearContents
Columns("A").Interior.ColorIndex = xlNone
a = 0
Exit Sub
End If
For c = 1 To 56
Cells(c, 1).Value = c
Cells(c, 1).Interior.ColorIndex = c
Next
a = 1
End Sub
[/vb:1:ea192e4c8c]