bir hücrede parantez kaldırma

[tan968]

Merhaba
ek'teki dosyada detayı mevcut. Sanırım makro gerekiyor. Bir hücrede parantez ekleme ve kaldırma nasıl yapabilirim. Toplam 145.000 satır ve 5000 civarında farklı rakkamlar mevcut. Haliyle bul ve değiştir den yapmak akıllıca değil. Acil yardımlarınızı bekliyorum.

Selamlar

 

[forever215]

Merhaba;
Peki parantezlerin içine değer gelecek mi?

 

[vardar07]

Kısa yoldan makrosuz dosyayı incele

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub BirimDegistir()
For i = 1 To Range("c65536").End(3).Row
deger = Replace(Replace(Cells(i, "c"), " mm", ""), ".", ",") * 1
Cells(i, "e") = Cells(i, "c") & " (" & Round(deger / 10 / 2.54, 3) & " inç)"
Next
End Sub

Fonksiyon ile.

=C1&" ("&YUVARLA((YERİNEKOY(YERİNEKOY(C1;" mm";"");".";",")*1)/10/2,54;3)&" inç)"

 

[tahsinanarat]

Public Sub Birlestir()
For i = 1 To [A65536].End(3).Row
Cells(i, "e") = Cells(i, "c") & " " & "(3,95 in)"
Next i
End Sub

 

[uzmanamele]

Public Sub Birlestir()
For i = 1 To [A65536].End(3).Row
Cells(i, "e") = Cells(i, "c") & " " & "(3,95 in)"
Next i
End Sub

Merhaba
syn tahsinanarat, 100,33 mm için 3,95 inç ama mm olarak çap değiştiğinde bunu inç ölçüsüne çevirmek lazım.
Örneğin; 200.33 mm için 7,887 inç olmalı.
Hepsine 3,95 inç ilave etmek doğru olmayabilir.

 

[tahsinanarat]

Sn. uzmanamele hocam ben işin o yönünü hiç düşünmedim, siz haklısınız, verdiği örneğe bakınca o şekilde algılamıştım. Uyarınız için teşekkürler.