• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Gerial

  • Konbuyu başlatan Konbuyu başlatan PEPE
  • Başlangıç tarihi Başlangıç tarihi
Katılım
24 Nisan 2006
Mesajlar
76
Excel Vers. ve Dili
excel 2010 ingilizce
Aşağıdaki kodda gerial çalışmıyor eklenbilirmi?



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Row > ilksat And ActiveCell.Row < sonsat Then Exit Sub
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row + 0, 90)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row + 0, 90)).FormatConditions(1).Interior.ColorIndex = 33
ilksat = ActiveCell.Row
sonsat = ActiveCell.Row + 3
End Sub
 
Makro kullanımında GERİ AL maalesef çalışmaz...
 
Şimdilik bildiğim ve kullandığım; makroyu 1 kez çalıştırdıktan sonra geri alınabilir. Birkaç kez makroyu çalıştırırsanız geri alınamıyor.
 
Geri
Üst