Makro ile Replace All

[ottoman71]

Selam Arkadaşlar,

A sütunundaki 250 rakamlarını makro ile Replace All yaparak 350 olarak değiştirebilirmiyiz.
Yalnız burada 1250 rakamlarını 1350 olarak değitirmeyecek. Sadece 250 olan rakamları değiştirecek

Teşekkur ederim iyi çalışmalar.

 

[Necdet]

Merhaba,

Sub Makro1()
    Range("A:A").Replace What:="250", Replacement:="350", LookAt:=xlWhole
End Sub

 

[ottoman71]

Çok teşekkur ederim.
İyi çalışmalar.

 

[ottoman71]

Merhaba,

Sub Makro1()
    Range("A:A").Replace What:="250", Replacement:="350", LookAt:=xlWhole
End Sub

Hocam bu konuda başka bir sorum daha olacak. Yardımcı olursanız sevinirim.
A sütününda, alt alta satırlarda rakamlar var. Bu rakamlar aşağıdaki gibi;

12
154
60
90
125..... gibi

Burada sormak istediğim 60 ile 90 arasına 45 rakamı eklemek istiyorum.
yani;
60
45
90... olacak.

Her 60 ve 90 rakamı olan satırların arasına 45 rakamı ekleyecek.
Böyle bir makro yapılabilir mi?

İyi çalışmalar.

 

[ottoman71]

Arkadaşlar lütfen yardım.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Ekle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Cells(i, "A") = 90 And Cells(i - 1, "A") = 60 Then
        Cells(i, "A").Insert shift:=xlDown
        Cells(i, "A") = 45
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Ekleme Tamamdır..."
End Sub

 

[ottoman71]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Ekle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Cells(i, "A") = 90 And Cells(i - 1, "A") = 60 Then
        Cells(i, "A").Insert shift:=xlDown
        Cells(i, "A") = 45
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Ekleme Tamamdır..."
End Sub

Hocam,

Çok teşekkur ederim. Ellerinize sağlık.
İyi çalışmalar.

 

[ottoman71]

Arkadaşlar A sütunundaki L100*50*6 bilgisini Replace All ile L100x50x6 olarak değiştirmek istiyorum. Yalnız buradaki (*) işaretini (x) işareti olarak değiştireceğim. Yukarıdaki kod ile komple değiştiriyor.

yardımcı olurmusunuz.

 

[Korhan Ayhan]

Selamlar,

Yıldız (*) karakteri joker karakter olduğu için normal yöntemle değiştiremezsiniz. Tümü anlamı taşımaktadır.

Aşağıdaki kod ile tüm yıldızları (*) "x" olarak değiştirebilirsiniz.

Sub YILDIZ_DEĞİŞTİR()
    Range("A:A").Replace What:="~*", Replacement:="x", LookAt:=xlPart
End Sub

 

[ottoman71]

Selamlar,

Yıldız (*) karakteri joker karakter olduğu için normal yöntemle değiştiremezsiniz. Tümü anlamı taşımaktadır.

Aşağıdaki kod ile tüm yıldızları (*) "x" olarak değiştirebilirsiniz.

Sub YILDIZ_DEĞİŞTİR()
    Range("A:A").Replace What:="~*", Replacement:="x", LookAt:=xlPart
End Sub

Teşekkur ederim. Ellerinize Sağlık.

 

[Carpintero]

Merhaba,

Sub Makro1()
    Range("A:A").Replace What:="250", Replacement:="350", LookAt:=xlWhole
End Sub

Merhabalar, "350" sonucunu B sütununa yazdırmak istesek
kodda nasıl bir değişiklik yapmalıyız acaba.

 

[teknoart]

Teşekkürler Korhan Ayhan bu konu çok işime yaradı.

 

[tahsinanarat]

Sn.Nejdet hocam;

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Ekle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Cells(i, "A") = 90 And Cells(i - 1, "A") = 60 Then
        Cells(i, "A").Insert shift:=xlDown
        Cells(i, "A") = 45
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Ekleme Tamamdır..."
End Sub

45 sayısını eklediğinde saadece a sütunundaki hücreyi aşağıya kaydırıyor, komple bir satır eklemek istersek kodda nasıl bir değişiklik yapmalıyız

 

[Korhan Ayhan]

Deneyin.

Cells(i, "A").EntireRow.Insert Shift:=xlDown

 

[tahsinanarat]

Sn. Korhan hocam çok teşekkür ederim.