Sütunlardaki girdileri otomatik değiştirme

[tefon]

Arkadaşlar herkese iyi çalışmalar diliyorum öncelikle.

Benim elimde excel bir dosya var. 20 sütundan oluşuyor. Ben örnek olarak C sütununda belli bir düzene göre değişim yapmak istiyorum.

Örneğin C sütununda : ARABA - EMLAK - ARSA - TARLA ifadeleri var. Ben bunları otomatik olarak TARLA olanları TRL - EMLAK olanları EMLK - ARABA olanları ARB gibi değiştirmek istiyorum.

Ayrıca D sütununda yer alan ifadeleri de koşulsuz olarak tamamını İLAN olarak değiştirmek istiyorum.

Bununla ilgili elinde makro olan veya yardımcı olabilecek birisi var mıdır?

Şimdiden çok teşekkür ederim.

 

[askm]

Örnek dosyanızı ekleyebilir misiniz?

 

[antonio]

Merhaba,
Yapmak istediğiniz değişiklik sadece C sütunu ve D sütunu için mi?
C sütununda yapmak istediğiniz değişiklikler sadece "TARLA olanları TRL - EMLAK olanları EMLK - ARABA olanları ARB gibi değiştirmek" ten mi ibaret, başka değişiklik yapmak istediğiniz kelimeler var mı?

 

[tefon]

Örnek dosyanızı ekleyebilir misiniz?

Dosya çok uzun olduğu için yükleyemedim.

Merhaba,
Yapmak istediğiniz değişiklik sadece C sütunu ve D sütunu için mi?
C sütununda yapmak istediğiniz değişiklikler sadece "TARLA olanları TRL - EMLAK olanları EMLK - ARABA olanları ARB gibi değiştirmek" ten mi ibaret, başka değişiklik yapmak istediğiniz kelimeler var mı?

C ve D sütununu örnek verdim. Sütunlar değişebilir. Yapmak istediğim değişiklikler de örnek olarak verildi.

Daha açıklayıcı olmak gerekirse bir e-ticaret sitesi için kategorileri yedekledik ve kategorilere kısa açıklamalar yazacağız. Her gün güncellenmesi gerekiyor. Örnek Beyaz Eşya yerine bebm gibi kodlar olacak. Biz makroda bunları alt alta yazıp her seferinde elle düzenlemektense makroyu çalıştırmayı hedefliyoruz.

Teşekkür ederim.

 

[Asri]

Dosya çok uzun olduğu için yükleyemedim.


C ve D sütununu örnek verdim. Sütunlar değişebilir. Yapmak istediğim değişiklikler de örnek olarak verildi.

Daha açıklayıcı olmak gerekirse bir e-ticaret sitesi için kategorileri yedekledik ve kategorilere kısa açıklamalar yazacağız. Her gün güncellenmesi gerekiyor. Örnek Beyaz Eşya yerine bebm gibi kodlar olacak. Biz makroda bunları alt alta yazıp her seferinde elle düzenlemektense makroyu çalıştırmayı hedefliyoruz.

Teşekkür ederim.

Dosyanızı değil, örnek dosyanızı yükleyiniz.
Veri olan her bir sayfada 10-15 satırlık bir bilgi yeterli olur.

Ayrıca aynı dosyaya olmasını istediğiniz sonuç sayfasını da eklerseniz daha hızlı sonuç alırsınız.

 

[askm]

Sayfa2 A1 hücresinden itibaren ASIL kelimeleri yazın. (TARLA, ARABA gibi) B1 den itibarende TRL ARB gibi değişecek şeklini yazın.
Aşağıdaki kodları kullanın. Sayfanın neresinde olursa olsun değerler değişir.

Sub askm()
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Sayfa1")
Dim SonSat As Long
SonSat = s1.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False

For i = 1 To SonSat
    Cells.Replace What:=s1.Cells(i, 1), Replacement:=s1.Cells(i, 2), LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next i
Application.ScreenUpdating = True
MsgBox "Kelimeler değişti...", vbInformation, "ASKM"
End Sub

 

[tefon]

Sayfa2 A1 hücresinden itibaren ASIL kelimeleri yazın. (TARLA, ARABA gibi) B1 den itibarende TRL ARB gibi değişecek şeklini yazın.
Aşağıdaki kodları kullanın. Sayfanın neresinde olursa olsun değerler değişir.

Sub askm()
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Sayfa1")
Dim SonSat As Long
SonSat = s1.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False

For i = 1 To SonSat
    Cells.Replace What:=s1.Cells(i, 1), Replacement:=s1.Cells(i, 2), LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next i
Application.ScreenUpdating = True
MsgBox "Kelimeler değişti...", vbInformation, "ASKM"
End Sub

çok teşekkür ediyorum, hemen deneyeceğim.
elinize ve yüreğinize sağlık.

 

[askm]

Rica ederim. Kolay gelsin.

 

[hakankilic]

Hocam bu kopyala yapıştır gibi olmuş. Arkadaşın işini görmüş ise sorun yok.

 

[askm]

Kodun mantığı kopyala yapıştır değil. CTRL + H ile yapılan işlemi kod ile yapıyor.