Engineerist34
Altın Üye
- Katılım
- 8 Ekim 2012
- Mesajlar
- 46
- Excel Vers. ve Dili
- Office 365
- Altın Üyelik Bitiş Tarihi
- 01-09-2028
Herkese Merhabalar,
Elimde bir kaç excel dosyası var ve bu dosyalardaki Birim içeren tüm sütünler biçimlendirilmemiş.
Yani kg olan ifadeleri rakamların sonuna elle eklemişler. 500 kg gibi. Bunları tek tek hücre biçimlendirmeden #.##0 "kg" formatında yaptığımda sorun yok. Matematiksel işlemleri yapabiliyorum.
Ancak tabiki yüzlerce satırı böyle yapmak yada Biçim boyacısıyla formatlamak uzun zaman alıyor.
Aşağıdaki gibi bir kod denedim, kg ifadesini siliyorum ama formatlama kısmında iç içe çift tırnak olduğu için hata veriyor.
Aşağıdaki resimde kırmızı ile işaretlenen hatalı kod kısmı..
Doğru formatlamayı nasıl yapabilirim, yardımcı olabilirseniz çok sevinirim.
Şimdiden Teşekkür Ederim.
Elimde bir kaç excel dosyası var ve bu dosyalardaki Birim içeren tüm sütünler biçimlendirilmemiş.
Yani kg olan ifadeleri rakamların sonuna elle eklemişler. 500 kg gibi. Bunları tek tek hücre biçimlendirmeden #.##0 "kg" formatında yaptığımda sorun yok. Matematiksel işlemleri yapabiliyorum.
Ancak tabiki yüzlerce satırı böyle yapmak yada Biçim boyacısıyla formatlamak uzun zaman alıyor.
Aşağıdaki gibi bir kod denedim, kg ifadesini siliyorum ama formatlama kısmında iç içe çift tırnak olduğu için hata veriyor.
Kod:
Dim z As Integer
Range("E1").Select
For z = 1 To 587
If InStr(1, (Range("E" & z).Value), "kg") > 0 Then
ActiveCell.Value = Replace(ActiveCell.Value, "kg", "")
ActiveCell.NumberFormat = "#.##0 "kg""
Else
ActiveCell.Offset(1, 0).Select
End If
Next z
Doğru formatlamayı nasıl yapabilirim, yardımcı olabilirseniz çok sevinirim.
Şimdiden Teşekkür Ederim.