• DİKKAT

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

Çakışan makro ile sayfa kodları

  • Konbuyu başlatan Konbuyu başlatan AKREP1
  • Başlangıç tarihi Başlangıç tarihi
A

AKREP1

Katılım
30 Mayıs 2007
Mesajlar
142
Excel Vers. ve Dili
excel 2003 türkçe
Modulel 1 deki makroSub koru()
Application.ScreenUpdating = False
For sayfa = 1 To Sheets.Count
Sheets(sayfa).Protect "1"
Next
Application.ScreenUpdating = True
End Sub
Sub koruac()
Application.ScreenUpdating = False
For sayfa = 1 To Sheets.Count
Sheets(sayfa).Unprotect "1"
Next
Application.ScreenUpdating = True
End Sub
Sayfanın kod kısmındakiPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 1 'Turn off previous use Cells.Interior.ColorIndex = 1 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 5
Target.EntireColumn.Interior.ColorIndex = 26
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d:aj]) Is Nothing Then Exit Sub
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub
Aralarında bir çakışma var.Sayfa korumayı devre dışı bırakınca kodlar çalışıyor.Bunu nasıl düzeltip hem koruma makrosu hemde kodlar çakışmadan çalışsın.Saygılarımla.Teşekkürler.
 
merhaba
aşağıdaki şekilde denermisiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.Interior.ColorIndex = 1 'Turn off previous use Cells.Interior.ColorIndex = 1 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 5
Target.EntireColumn.Interior.ColorIndex = 26
End Sub
 
uzmanamele' Alıntı:
merhaba
aşağıdaki şekilde denermisiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.Interior.ColorIndex = 1 'Turn off previous use Cells.Interior.ColorIndex = 1 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 5
Target.EntireColumn.Interior.ColorIndex = 26
End Sub
Genişletmek için tıkla ...

Sağolun.Denedim .Korumayı kaldırınca düzeliyor.
 
Son düzenleme:
Hem koruma makrosu hem de sayfa kodları aynı anda çalışamaz mı?Teşekkürler
 
AKREP1' Alıntı:
Modulel 1 deki makroSub koru()
Application.ScreenUpdating = False
For sayfa = 1 To Sheets.Count
Sheets(sayfa).Protect "1"
Next
Application.ScreenUpdating = True
End Sub
Sub koruac()
Application.ScreenUpdating = False
For sayfa = 1 To Sheets.Count
Sheets(sayfa).Unprotect "1"
Next
Application.ScreenUpdating = True
End Sub
Sayfanın kod kısmındakiPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 1 'Turn off previous use Cells.Interior.ColorIndex = 1 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 5
Target.EntireColumn.Interior.ColorIndex = 26
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d:aj]) Is Nothing Then Exit Sub
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub
Aralarında bir çakışma var.Sayfa korumayı devre dışı bırakınca kodlar çalışıyor.Bunu nasıl düzeltip hem koruma makrosu hemde kodlar çakışmadan çalışsın.Saygılarımla.Teşekkürler.
Genişletmek için tıkla ...
Yardımlarınızı bekliyorum.Saygılar
 
Çalışma sayfasındaki kodu aşağıdaki şekilde kullanınız.:cool:
Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect "1"
Cells.Interior.ColorIndex = 1 'Turn off previous use Cells.Interior.ColorIndex = 1 'Turn off previous use
If Cells(1, 1) = "." Then goto son
Target.EntireRow.Interior.ColorIndex = 5
Target.EntireColumn.Interior.ColorIndex = 26
son:
ActiveSheet.Protect "1"
End Sub
 
Son düzenleme:
İlginize teşekkürler.Ama yine hücre içerisine 100 yazıldığında punto 8 olmuyor.Sayfa koruması devre dışı kalmadan çalışmıyor.
 
Son düzenleme:
Dosyanız ekte.:cool:
 
İlginize gerçekten çok çok teşekkürler.Ama yine hücre içerisine 100 yazıldığında punto 8 olmuyor.Sayfa koruması devre dışı kalmadan çalışmıyor.
 
AKREP1' Alıntı:
İlginize gerçekten çok çok teşekkürler.Ama yine hücre içerisine 100 yazıldığında punto 8 olmuyor.Sayfa koruması devre dışı kalmadan çalışmıyor.
Genişletmek için tıkla ...
Ekli dosyayı inceleyiniz.:cool:
 
Gerçekten size çok çok teşekkürler sonunda istediğim gibi oldu.Sabrınıza ve emeğinize saygılarımla.
 
AKREP1' Alıntı:
Gerçekten size çok çok teşekkürler sonunda istediğim gibi oldu.Sabrınıza ve emeğinize saygılarımla.
Genişletmek için tıkla ...
Rica ederim.
İyi çalışmalar.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst