tümünü yenile dediğimde hücre rengi değişiyor

[koboy]

Merhaba makro ile buton yaptım yenile butonuna başına

A2 hücredeki renk siliniyor nasıl düzeltebilirim

Sub VERIYENILE3()
'
' VERIYENILE3 Makro
'

'
ActiveWorkbook.RefreshAll

Range("BA1").Select
Selection.Copy
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 1
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

 

[bugrakaratas]

Merhaba;
Aşağıdaki gibi deneyiniz.

Sub VERIYENILE3()
'
' VERIYENILE3 Makro
'

'
ActiveWorkbook.RefreshAll

Range("BA1").Select
Selection.Copy
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 1
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues


End Sub

 

[koboy]

merhabalar değişenbirşey olmadı

 

[bugrakaratas]

Dosyanızı ekleyebilir misiniz.