Barons
Altın Üye
- Katılım
- 14 Mayıs 2005
- Mesajlar
- 967
- Excel Vers. ve Dili
- Microsoft Ofis 365
- Altın Üyelik Bitiş Tarihi
- 06-01-2040
merhaba
Bazı makro kodlarının eğer dosya paylaşımda ise çalışmadığını farkettim.Örnek: a:a kolonundaki değerlerin tekrar edilenlerini kaldıran makro aşağıdadir.Ancak dosyayı paylaşıma açtığımda kod çalışmıyor hatta gelişmiş süzgeçde devre dışı kalıyor.Bunun çözümünü bilen arkadaşlardan yardım rica ediyorum.
Sub mukerrerengelle()
Application.ScreenUpdating = False
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then
Cells(a, "a").Delete shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
Bazı makro kodlarının eğer dosya paylaşımda ise çalışmadığını farkettim.Örnek: a:a kolonundaki değerlerin tekrar edilenlerini kaldıran makro aşağıdadir.Ancak dosyayı paylaşıma açtığımda kod çalışmıyor hatta gelişmiş süzgeçde devre dışı kalıyor.Bunun çözümünü bilen arkadaşlardan yardım rica ediyorum.
Sub mukerrerengelle()
Application.ScreenUpdating = False
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then
Cells(a, "a").Delete shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub