Hücredeki bütünün renklendirilmiş kısımları silinebilirmi?

[Bora K]

Merhabalar.
Aşağıdaki verileri B3 ten itibaren başlayıp aşağı doğru (B4 B5)
devam ediyor.

Ben bu verileri kod yardımı ile istediğim kısmını renklendirebiliyorum.
Örneğin C:\Documents and Settings\.......\Desktop gibi
Belirlediğimiz bir alanda Kırmızı ile renklendirilmiş değerleri sil diye
bir kod yazılabilirmi acaba?

Amacım verilerin içinden aşağıdaki parçaları bırakıp geri kalanını silmek.
Bunun için baştan 43 adet sondan 4 adet hane kırp şeklinde yazılacak
bir kod da işimi görecektir. Umarım anlaşılır olmuştur.


Arşiv\Kitap1
Arşiv\adsız
Arşiv\örnek


C:\Documents and Settings\.......\Desktop\Arşiv\Kitap1.xls
C:\Documents and Settings\.......\Desktop\Arşiv\adsız.JPG
C:\Documents and Settings\.......\Desktop\Arşiv\örnek.xls

 

[suleyman242]

(Makro olarak) Dosyayı ekledim Sonucu yanlış anlamadıysam uzantısı olmadan verecek
AÇIKLAMA:cümlelerin uzunluğu sabit olarak alınmıştır.

Ayrıca
C3 hücresine

=SAĞDAN(B3;((UZUNLUK(B3))-(BUL("Desktop\";B3))-7))

 

[Bora K]

Merhabalar
Süleyman Bey konuya göstermiş olduğunuz alaka için
çok teşekkür ederim.

kod işlevini yapıyor
Lakin her satır için ayrı ayrı tıklama istiyor
bunu tek seferde yaptıramazmıyız acaba?

 

[asi_kral]

Merhabalar
Süleyman Bey konuya göstermiş olduğunuz alaka için
çok teşekkür ederim.

kod işlevini yapıyor
Lakin her satır için ayrı ayrı tıklama istiyor
bunu tek seferde yaptıramazmıyız acaba?

Merhaba

Private Sub CommandButton1_Click()
Dim AYIR, DAD As String
Worksheets(1).Select
For i = 3 To 5
DAD = Cells(i, "B").Value
AYIR = Split(DAD, "\")
x6 = AYIR(5)
KES = Split(x6, ".")
A1 = AYIR(4) & "\" & KES(0)
[COLOR="Red"]MsgBox A1[/COLOR]
Cells(i, "B").Value = A1
Next
End Sub

Kırmızı bölümü ya pasif hale getirin yada silin öyle deneyin.

 

[suleyman242]

Merhabalar
Süleyman Bey konuya göstermiş olduğunuz alaka için
çok teşekkür ederim.

kod işlevini yapıyor
Lakin her satır için ayrı ayrı tıklama istiyor
bunu tek seferde yaptıramazmıyız acaba?

Msgbox A1

Msgbox satırını silerseniz hepsini 1 defada yapar ; mesajı görebilmeniz açısından oraya yazdım.
İlk mesajda dosyayı güncelledim.

 

[Bora K]

Çok teşekkür ederim Süleyman bey.
Elinize zihninize sağlık inşallah.

 

[suleyman242]

Çok teşekkür ederim Süleyman bey.
Elinize zihninize sağlık inşallah.

Bende teşekkür ederim Kolay gelsin.