ardaşık sayılar

[FDUYAR]

Merhaba Arkadaşlar,

Elimde 30.000 satırlık bir dosya var.

Bu dosyada aynı sütünde alt alta gelen ardaşık sayıları sarı ile renklenmesini veya belirgin hale gelmesini istiyorum.

Örnek olarak aşağıda kırmızı ile renklendirdiğim gibi:

Varmı bir yolu ?? :dusun:

6205
8211
30215
30216
30217
3210
7210
7212
7214
3208
NU100
NU103
NU106
SFL204
B7005

 

[MFA2000]

Merhaba,

Örnek çalışmayı aşağıdaki linkten indirebilirsiniz. Rakamlarınızın uzunluğuna göre G ve H sütunlarından birini kullanabilirsiniz, örnekte ben H sütununu kullandım. Aşağıya doğru rakamların uzunluğu arttıkça gerekli düzenlemeyi (G veya H) ilgili kutularda yapabilirsiniz. Koşullu şartlandırmayı K sütunundaki değerlere göre yapın. Örnekte F sütunundaki kutular koşullu şartlandırılmıştır.
Formülleri bir kez aşağıya doğru çekip kopyaladıktan sonra G-H-I-J-K sütunlarını kapatabilirsiniz

İyi çalışmalar,

https://yadi.sk/i/djcYtHs1fxHiX

 

[numan şamil]

Merhaba Arkadaşlar,

Elimde 30.000 satırlık bir dosya var.

Bu dosyada aynı sütünde alt alta gelen ardaşık sayıları sarı ile renklenmesini veya belirgin hale gelmesini istiyorum.

Örnek olarak aşağıda kırmızı ile renklendirdiğim gibi:

Varmı bir yolu ?? :dusun:

6205
8211
30215
30216
Not :30217
3210
7210
7212
7214
3208
NU100
NU103
NU106
SFL204
B7005

Merhaba Makro ile olur derseniz ve ilk üç harf veya sayıları benzeyenleri boyar
verileri A sütununda kabul edersek
K sutunu yardımcı sutun olarak kullanılmıştır

Sub listele()
Dim a As Long
For a = 2 To [A65536].End(3).Row
Range("k" & a) = Mid(Cells(a, "A"), 1, 3)
Next a
For x = 2 To [k65536].End(3).Row
If WorksheetFunction.CountIf([k:k], Cells(x, "k")) > 1 Then
Range("A" & x).Font.ColorIndex = 3
Else
Range("A" & x).Font.ColorIndex = 1
End If
Next x
Range("k2:k" & Rows.Count).ClearContents
End Sub

 

[numan şamil]

3. nolu mesajdaki kodlar revize edildi.

 

[FDUYAR]

çok teşekkürler iki formülde çok işime yaradı emeğinize sağlık