Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 12-10-2017, 10:28   #1
tefon
 
Giriş: 06/04/2005
Mesaj: 53
Varsayılan Sütunlardaki girdileri otomatik değiştirme

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.
__________________
VCTeF10
tefon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 10:33   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

Örnek dosyanızı ekleyebilir misiniz?
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 12-10-2017, 10:35   #3
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,037
Excel Vers. ve Dili:
Excel 2013
Varsayılan

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ı?
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 11:11   #4
tefon
 
Giriş: 06/04/2005
Mesaj: 53
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Örnek dosyanızı ekleyebilir misiniz?
Dosya çok uzun olduğu için yükleyemedim.

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
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.
__________________
VCTeF10
tefon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 11:23   #5
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,420
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
tefon tarafından gönderildi Mesajı Görüntüle
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.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 11:40   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

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.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 12-10-2017, 11:49   #7
tefon
 
Giriş: 06/04/2005
Mesaj: 53
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
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.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
__________________
VCTeF10
tefon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 12:42   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

Rica ederim. Kolay gelsin.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-10-2017, 12:43   #9
hakankilic
Altın Üye
 
Giriş: 20/09/2005
Mesaj: 39
Excel Vers. ve Dili:
2013 - Türkçe
Varsayılan

Hocam bu kopyala yapıştır gibi olmuş. Arkadaşın işini görmüş ise sorun yok.
hakankilic Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-10-2017, 14:18   #10
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kodun mantığı kopyala yapıştır değil. CTRL + H ile yapılan işlemi kod ile yapıyor.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:08


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden