Içinde sayı olan hücreyi bulmak

[cebelitarık]

Forumun değerli üyeleri
Arama yaptım fakat bana uygun bir şey bulamadım
A sutunundaki hücrelerde çeşitli karakterler var bazılarında ise hem sayı var hemde harfler var
benim isteğim açinde sayı olan hüreleri bulup b stununda karşılığına . nokta koymak istiyorum.
Saygılarımla

 

[Korhan Ayhan]

Aşağıdaki dizi formülü deneyiniz.

=EĞER(EHATALIYSA(KAÇINCI(DOĞRU;ESAYIYSA(BUL(SATIR($1:$10)-1;A1;1));0));"";".")

 

[cebelitarık]

SAYIN KORHAN AYHAN
ilginize teşekkür ederim.
Verdiğiniz formül galiba çalışmadı.
bunu vba ile yapsak nasıl olur
ben şöyle bir kod buldum fakat bu arda başka ihtiyaç daha doğdu şöyleki:
hücre içerindeki harf ve sayılarıda ayırmak istiyorum.
harfleri b stununa sayıları c sutununa "." tıyıda d dutununa koymak istiyorum.
saygılarımla

Sub yaz()
Dim sh As Worksheet
Dim i As Long
Set sh = ThisWorkbook.Sheets("Sayfa1")
sn = sh.[A65536].End(3).Row
Application.ScreenUpdating = False
sh.Range("B2:B" & sn).ClearContents
For i = 1 To sn
For k = 1 To 60
If InStr(1, sh.Cells(i, "A"), k) > 0 Then
sh.Cells(i, "B") = "."
End If

Next k
Next i
Application.ScreenUpdating = True
Set sh = Nothing
End Sub

 

[cebelitarık]

Dosya ektedir

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

 

[cebelitarık]

SAYIN KORHAN AYHAN
İlginize çok teşekkür ederim.
Problem çözülmüştür.
Saygılarımla