- Katılım
- 7 Mayıs 2006
- Mesajlar
- 113
- Excel Vers. ve Dili
- Microsoft Office Excel 2010 TR
Merhaba aşağıdaki kod tüm sayfada arama yaptırıyor dolayısıyla çok fazla kasıyor işlem yaparken. Ben sadece seçtiğim kriter arasında işlem yapmasını nasıl sağlayabilirim. Birde dosyadan çıktıktan sonra macro silinmiş oluyor kaydederken şu hayatı veriyir nasıl yapabilirim acaba...
Function RenkSayA(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
Hucre.Interior.Color = Renk_Tipi.Interior.Color And _
Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
Hucre.Font.Size = Renk_Tipi.Font.Size And _
Hucre.Font.Name = Renk_Tipi.Font.Name Then
Toplam = Toplam + 1
End If
Next
RenkSayA = Toplam
End Function
HATA : macro ların güvenlik ayarlarını yatım ama dosyayı xlsx olarak degıl macro dosyası olarak kaydedıyor....
aşağıdaki özellikleri makro serbest çalışma kayıtlı olamaz
VB projesi
Hayır, ve sonra bir makro seçerseniz, bu özellikleri olan bir dosyayı kaydetmek için dosya türü listesinden dosya türünü etkin.....
Function RenkSayA(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
Hucre.Interior.Color = Renk_Tipi.Interior.Color And _
Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
Hucre.Font.Size = Renk_Tipi.Font.Size And _
Hucre.Font.Name = Renk_Tipi.Font.Name Then
Toplam = Toplam + 1
End If
Next
RenkSayA = Toplam
End Function
HATA : macro ların güvenlik ayarlarını yatım ama dosyayı xlsx olarak degıl macro dosyası olarak kaydedıyor....
aşağıdaki özellikleri makro serbest çalışma kayıtlı olamaz
VB projesi
Hayır, ve sonra bir makro seçerseniz, bu özellikleri olan bir dosyayı kaydetmek için dosya türü listesinden dosya türünü etkin.....
