Çözüldü SAP dan gelen Metin halindeki Veriyi Sayıya Dönüştürme

[MUSTAFAA]

Merhabalar,

Belli sutunlarım var dır bu sutunları sap den çektiğim için excel hata vermektedir. bu durum için bazı verileri sayıya çevirmem gereklidir. bunun için hangi kodu kullanmam gereklidir bilgi vermenizi rica ederim.

Aşağıdaki gibi hata sorun gözükmektedir.

 

[aeGNoR]

F2+Enter ile düzeliyorsa bunu otomatik yapan kodlar vardı onlardan deneyelim

 

[MUSTAFAA]

Evet düzelmektetir ama kod olarka nasıl ilerlemem gereklidir.

 

[aeGNoR]

Ekli dosyayı görüntüle 12198
Evet düzelmektetir ama kod olarka nasıl ilerlemem gereklidir.

Arıyorum, bulunca paylaşacağım.
Buldum;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu fonksiyonu çağırırken Ranges kısmına f2 enter yaptırmak istediğiniz hücreleri girmelisiniz. Önce küçük bir aralıkta deneyin çalışırsa sonra daha büyük alanlarda deneme yaparsınız.

 

[MUSTAFAA]

deniyorum

 

[MUSTAFAA]

kod sayfamda bu şekilde kod olduğunda if ile dongu kurmak değilde hocam b2 ile sonu buluyorum onun bir kodu olması gerekli diye düşüyorum hepsni seç ve sayıya dönüştür gibi.

 

[VetExc]

Bu verilerde 1 ile çarpma veya metni sütunları dönüştürme işlemi sonrasında veriler sayıya dönüşüyor mu

 

[MUSTAFAA]

*1 DE İŞLER KARIŞABİLİR EVET DÖNÜŞÜYOR AMA SONRASINDA vlookup kullanıcagım için *1 işlerimi zorlaştırır ek olarak dediğinizi tam anlamadım ama sayıya dönüştür diyince sorun kalmamaktadır.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Not:Kod değiştirildi If IsNumeric(Alan.Value) Then olarak 14.10.2022 14:26

 

[MUSTAFAA]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam buradaki )(.Range(For Each Alan In Sheets("Sayfa1").Range("B2" & Rows.Count).SpecialCells(xlCellTypeConstants) ) rows.count sonunu bulmu demek?

 

[Adnan]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[MUSTAFAA]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam bu kodu aldım ben

konuyu kapabnabilir teşekkür ederim.

 

[Refaz]

hocam buradaki )(.Range(For Each Alan In Sheets("Sayfa1").Range("B2" & Rows.Count).SpecialCells(xlCellTypeConstants) ) rows.count sonunu bulmu demek?

Dolu hücrelerde dolaş demek abey b ve d sütunlarında.Alan ise hangisi doluysa o oluyor abey.Anlatımım genelde iyi değil.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

If Alan.Value <> ""
Aslında yukarıdaki kısım if isnumeric(Alan.value) then
Olarak yazılabilinirdi mobilden yazdım deneyemedim ve kodlarıda arşivlemiştim ordan aldım doğru çıkıyordu kodları tam okuyunca yazayım dedim
Zaten for each ile dolu hücrelerde dolaştığı için birde if ile boş değilse şartı anlamsız olmuş galiba.
Ayrıca ilk mesajımda değiştirdim abey