Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 23-02-2017, 13:03   #1
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 145
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan MBUL ve BİRLEŞTİR

Arkdaşlar merhaba A1 hücresinde ;

BEYAZ KALEM, SİYAH ÇANTA, YEŞİL SİLGİ, KIRMIZI KİTAP, SARI MAKAS .....

vb çeşitli renkleri içeren kelimeler var.

İsteğim ise şu; bu hücrede var olan renklerin A2 hücresinde

"BEYAZ SİYAH YEŞİL KIRMIZI SARI ......" şeklinde ayrılması. sırası önemli değil.

Nasıl bir formül atmalıyım ? Her hücrede ayrı ayrı renk ayırıp bir hücrede birleştirme yapabiliyorum ama belki daha pratik bir çözümü vardır

Bu mesaj en son " 23-02-2017 " tarihinde saat 13:16 itibariyle leonadies tarafından düzenlenmiştir....
leonadies Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 13:40   #2
tirEdsOuL
Altın Üye
 
tirEdsOuL kullanıcısının avatarı
 
Giriş: 03/02/2009
Şehir: Düzce
Mesaj: 319
Excel Vers. ve Dili:
Microsoft Office Ev ve İş 2013
Varsayılan

Verdiğiniz örneklerin hesap A1 hücresinde mi yazıyor ? Yoksa;

A1'de Beyaz Kalem
A2'de Siyah Çanta

gibi mi ?
tirEdsOuL Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 13:46   #3
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 145
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

"BEYAZ KALEM, SİYAH ÇANTA, YEŞİL SİLGİ, KIRMIZI KİTAP, SARI MAKAS ....." bu kısım tamamen bir metin şeklinde A1 hücresi içinde yer alıyor.

Ayırma işlemini A2 hücresi içinde yapmak istiyorum.
leonadies Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 14:19   #4
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,384
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

eğer hücre içeriği RENK ÜRÜN, bu sıralamada gidiyorsa şu kodu deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ayıkla()
Dim dizi() As String
msg = ""

sonSatir = Sayfa1.Range("A10000").End(xlUp).Row

For j = 1 To sonSatir

    tmpStr = Sayfa1.Range("A" & j)
    dizi = Split(tmpStr, ",")
    For i = 0 To UBound(dizi)
        tmpDizi = Split(Trim(dizi(i)), " ")
        msg = msg & tmpDizi(0) & " "
    Next i
    msg = RTrim(msg)
    Sayfa1.Range("B" & j) = msg
    

Next j
End Sub
Eğer KTF (Kullanıcı Tanımlı Fonksiyon) olarak kullanmak isterseniz şu kodları modül içine yazıp, =AYIKLA(A1) olarak B1 hücresine giriniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Public Function Ayıkla(Hucre As Range) As String


tmpStr = Hucre.Value
dizi = Split(tmpStr, ",")
For i = 0 To UBound(dizi)
    tmpDizi = Split(Trim(dizi(i)), " ")
    msg = msg & tmpDizi(0) & " "
Next i
msg = RTrim(msg)
Ayıkal = msg

End Function
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 14:26   #5
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 145
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

Alıntı:
systran tarafından gönderildi Mesajı Görüntüle
eğer hücre içeriği RENK ÜRÜN, bu sıralamada gidiyorsa şu kodu deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ayıkla()
Dim dizi() As String
msg = ""

sonSatir = Sayfa1.Range("A10000").End(xlUp).Row

For j = 1 To sonSatir

    tmpStr = Sayfa1.Range("A" & j)
    dizi = Split(tmpStr, ",")
    For i = 0 To UBound(dizi)
        tmpDizi = Split(Trim(dizi(i)), " ")
        msg = msg & tmpDizi(0) & " "
    Next i
    msg = RTrim(msg)
    Sayfa1.Range("B" & j) = msg
    

Next j
End Sub

İlginize teşekkür ederim. öncelikle makro sorunsuz çalışıyor. Ancak ürün renk kurgusu düzenli olmayacak. Metinde farklı kelimelerde olabilecek. araya yabancı alakasız şeylerde girebilecek. İsteğim ne yazılırsa yazılsın belli 10 çeşit rengin kelime olarak ayrılmasını istiyorum.
leonadies Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 14:42   #6
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 145
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

Sanırım bir çalıçma eklemek daha mantıklı olacak. Ekteki dosyada amacımı anlatmaya çalıştım.

Makro fonksiyon formül her türlü çözüm olabilir.
Eklenmiş Dosyalar
Dosya Türü: xlsm MBUL_BİRLEŞTİR.xlsm (10.9 KB, 15 Görüntülenme)
leonadies Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 14:47   #7
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,384
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

Şu kodları deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ayıkla()
Dim renkler(20)         '20 TANE RENK EKLEYEBİLİRSİNİZ.
renkler(1) = "SİYAH"
renkler(2) = "BEYAZ"
renkler(3) = "SARI"
renkler(4) = "KIRMIZI"
renkler(5) = "MOR"
renkler(6) = "YEŞİL"

tmpStr = Sayfa1.Range("A1")
msg = ""
For i = 1 To UBound(renkler)
  sonuc = InStr(1, tmpStr, renkler(i), vbTextCompare)
  if sonuc>0 then
    msg = msg & renkler(i) & " "
  end if
Next i
Sayfa1.Range("B1") = RTrim(msg)
End Sub
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 14:55   #8
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 145
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

Alıntı:
systran tarafından gönderildi Mesajı Görüntüle
Şu kodları deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ayıkla()
Dim renkler(20)         '20 TANE RENK EKLEYEBİLİRSİNİZ.
renkler(1) = "SİYAH"
renkler(2) = "BEYAZ"
renkler(3) = "SARI"
renkler(4) = "KIRMIZI"
renkler(5) = "MOR"
renkler(6) = "YEŞİL"

tmpStr = Sayfa1.Range("A1")
msg = ""
For i = 1 To UBound(renkler)
  sonuc = InStr(1, tmpStr, renkler(i), vbTextCompare)
  if sonuc>0 then
    msg = msg & renkler(i) & " "
  end if
Next i
Sayfa1.Range("B1") = RTrim(msg)
End Sub
Çok teşekkür ederim tam istedğim gibi Peki A sutununda aşağıya doğru akan bu renkleri B sutununda aynı mantıkta aşağı doğru devam ettirebilirmiyim?
Birde Ben A sutununa girdikçe (hemen) B sutununda ayırsın istiyorum. Bu da olursa sorun kalmayacak
leonadies Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 15:04   #9
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,384
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

Örnek dosyayı inceleyiniz. Modül içinden istediğiniz renkleri koda ilave etmeyi unutmayınız.
Eklenmiş Dosyalar
Dosya Türü: xlsm Kitap1.xlsm (15.6 KB, 7 Görüntülenme)

Bu mesaj en son " 23-02-2017 " tarihinde saat 22:22 itibariyle systran tarafından düzenlenmiştir.... Neden: ek değiştirildi...
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2017, 15:15   #10
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 145
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

Alıntı:
systran tarafından gönderildi Mesajı Görüntüle
Örnek dosyayı inceleyiniz. Modül içinden istediğiniz renkleri koda ilave etmeyi unutmayınız.
Teşekkür ederim sorunsuz çalışıyor tek sorun Büyük küçük harf duyarlı oluşu. Kodların çalışması için hep büyük harf gerekiyor. Yoksa çalışmıyor. Bunuda çözersek işlem tamamdır
leonadies Çevrimdışı   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 04:55


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 - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden