Seçilen Değerler Yardımıyla Tümüyle Değiştirme

[osmant87]

Merhabalar,

A Sütunumda ve B Sütunumda kodlar mevcut. Yapmak istediğim;

Sayfadaki (kitaptaki de olur) tüm A1 Hücresine eşit değerlerin tüm B1 Hücresindeki değerler ile değiştirilmesini istiyorum. Bu şekilde 1000'e yakın satır var.

Yardımcı olabilir misiniz?
Teşekkürler
Osman

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub degistir()

    eski = Sheets("Sayfa1").[A1].Value
    yeni = Sheets("Sayfa1").[B1].Value
    
    Cells.Replace What:=eski, Replacement:=yeni, LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
End Sub

 

[osmant87]

Aşağıdaki makroyu deneyiniz:

Sub degistir()

    eski = Sheets("Sayfa1").[A1].Value
    yeni = Sheets("Sayfa1").[B1].Value
   
    Cells.Replace What:=eski, Replacement:=yeni, LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
       
End Sub

Yusuf Bey çok teşekkür ederim, A1 ve B1 değerleri için yaptı fakat A2-B2, A3-B3 ... A100-B100 vb. gibi değerler için çalışmadı. Bu arada tüm sayfada değil misal sadece H:H kolonu için uygulamak istersek ne yapmalıyız?

 

[YUSUF44]

Sorunuzda dosyadaki tüm A1 hücresindeki değerleri B1 hücresindeki değerle değişmesini istemiştiniz. Ben de ona göre yaptım.

Sayfa1 H sütunu için

Cells

Yerine

Sheets(“Sayfa1”).[H:H]

İfadesi kullanmak gerekir sanırım.

Telefondan baktığımdan deneyemedim.

 

[osmant87]

Sorunuzda dosyadaki tüm A1 hücresindeki değerleri B1 hücresindeki değerle değişmesini istemiştiniz. Ben de ona göre yaptım.

Sayfa1 H sütunu için

Cells

Yerine

Sheets(“Sayfa1”).[H:H]

İfadesi kullanmak gerekir sanırım.

Telefondan baktığımdan deneyemedim.

Yusuf Bey çok teşekkür ederim yardımlarınız için, galiba soruyu tam düzgün yazamadım. Kusura bakmayın. Demek istediğim A1 yerine B1, A2 yerine B2, A3 yerine B3.... A1000 Yerine B1000 gibi olacaktı.

 

[YUSUF44]

Sayfadaki tüm hücrelerde A sütunundaki değerleri B sütunundaki değerlerle değiştirmek için ( A sütunu dahil):

Sub degistir()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    Cells.Replace What:=Cells(i, "A"), Replacement:=Cells(i, "B"), LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

H sütunundaki tüm hücrelerde A sütunundaki değerleri B sütunundaki değerlerle değiştirmek için

Sub degistir()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    [H:H].Replace What:=Cells(i, "A"), Replacement:=Cells(i, "B"), LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

Dosyadaki tüm sayfalarda H sütunundaki hücrelerde Sayfa1'in A sütunundaki değerlerin Sayfa1'in B sütunundaki hücrelerdeki veriyle değiştirilmesi için:

Sub degistir()
son = Cells(Rows.Count, "A").End(3).Row
For sayfa = 1 To Sheets.Count
    For i = 1 To son
        Sheets(sayfa).[H:H].Replace What:=Sheets("Sayfa1").Cells(i, "A"), Replacement:=Sheets("Sayfa1").Cells(i, "B"), LookAt:=xlWhole, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next
Next
End Sub

 

[osmant87]

Yusuf Bey çok teşekkürler. Elinize sağlık

Sub degistir()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
[H:H].Replace What:=Cells(i, "A"), Replacement:=Cells(i, "B"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

ikinci çalıştığında hata veriyor ama olsun bir kere çalışması benim için yeterli

 

[YUSUF44]

İlk çalışıtğında tümünü değiştirince ikinci çalıştığında bulacak/değiştirecek bir şey olmadığından hata veriyordur muhtemelen.