[Yardım]  Hücrede Bulunan Metinden İstenilen Kısımları Çekme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#1)  emreyigit » 05 Kas 2019 17:35

Merhabalar. Sayfa1 C1 adlı hücrede aylara göre dosya isimleri var. Bu dosya isimlerinden yalnızca "OCAK" ifadesini içerip sonu ".jpg" olarak bitenleri butona basıldığında A1, A2, A3... hücrelerine çekmek istiyorum.
1.png

Yani yukarıda ki durumdayken butona tıkladığımda aşağıda ki hali almasını istiyorum.
2.png


Uzun uzun uğraştım ama beceremedim. Yardımlarınızı rica ediyorum. Şimdiden teşekkür ederim yardımlarınız için.

istenilen adresleri alma.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 14:44
Meslek: Öğrenci
Yaş: 29
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#2)  erseldemirel2 » 05 Kas 2019 19:05

Like olabilir. Örneğin,

I
Kod: Tümünü seç
f range(“C1”).value like “*Ocak*” then
Msgbox “Evet”
Else
Msgbox “Hayır”
End If
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 490
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#3)  emreyigit » 05 Kas 2019 19:33

İlginiz için teşekkür ederim. Ama istediğim şekilde nasıl uygulayabiliriz acaba?
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 14:44
Meslek: Öğrenci
Yaş: 29
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#4)  Bülent » 05 Kas 2019 21:45

Merhaba,

Birleştirilmiş hücre içindekileri satırlara paylaştırıp aşağıdaki kodu kullanabilirsiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim aranan As String
Dim son As Long
Dim evn As Long
Dim jpg As Integer
son = Range("C65530").End(3).Row
For evn = 1 To son
    If InStr(1, Range("C" & evn), "OCAK") > 0 And InStr(1, Range("C" & evn), ".jpg") > 0 Then
        jpg = InStr(1, Range("C" & evn), ".jpg")
        Range("A" & evn).Value = VBA.Left(Range("C" & evn).Value, jpg + 3)
    End If
Next evn
MsgBox "Bitti", vbInformation, "excelvba.net"
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 43
İleti: 3650
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#5)  emreyigit » 05 Kas 2019 22:26

Çok çok teşekkür ederim. Emeğinize sağlık.
AAAA.png

Yeşil alandaki gibi "C:\" başlayan yerden önceki kısımları dahil etmemesini sağlayabilir miyiz? .jpg'den sonraki kısımların dahil edilmediği gibi.
Ayrıca kırmızıyla işaretlenen alan gibi boşluklar oluşmadan bulduğunu ilk boş satıra eklemesini sağlayabilir miyiz?
Yazdığınız kod tam istediğim gibi olmuş. Eğer bu söylediklerimi de sağlayabilirsek süper olacak. Çok şey istedim mazur görün lütfen. Tekrardan teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 14:44
Meslek: Öğrenci
Yaş: 29
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#6)  Bülent » 06 Kas 2019 08:30

Dener misiniz?

Kod: Tümünü seç
Dim aranan As String
Dim son As Long
Dim evn As Long
Dim jpg, say As Integer
Dim c As String
son = Range("C65530").End(3).Row
say = 0
For evn = 1 To son
    If InStr(1, Range("C" & evn), "OCAK") > 0 And InStr(1, Range("C" & evn).Value, ".jpg") > 0 Then
        jpg = InStr(1, Range("C" & evn), ".jpg") + 3
        c = InStr(1, Range("C" & evn), "C:\")
        say = say + 1
        Range("A" & say).Value = VBA.Mid(Range("C" & evn).Value, c, jpg - c + 1)
    End If
Next evn
MsgBox "Bitti", vbInformation, "excelvba.net"
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 43
İleti: 3650
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#7)  şahin » 06 Kas 2019 08:57

Kod: Tümünü seç
bul = 1
basla = 1
yaz = 2
Sayfa1.Range("A1:A" & Sayfa1.Range("A1000").End(3).Row).ClearContents
On Error Resume Next
Do While bul <> 0

    basla = InStr(basla, Sayfa1.Range("C1"), "C", vbTextCompare)
    bul = InStr(basla, Sayfa1.Range("C1"), ",", vbTextCompare)
    parcaal = Mid(Sayfa1.Range("C1"), basla, bul - basla)
    basla = bul + 1
    If parcaal Like "*OCAK*" And parcaal Like "*jpg*" And bul <> 0 Then
        Sayfa1.Cells(yaz, "A") = parcaal
        yaz = yaz + 1
    End If
 
   
Loop


Örnek dosya

istenilen adresleri alma.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 825
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Hücrede Bulunan Metinden İstenilen Kısımları Çekme

İleti#8)  emreyigit » 06 Kas 2019 15:06

Bülent Bey ve Şahin Bey çok teşekkür ederim tam istediğim gibi olmuş. Sağolun varolun.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 14:44
Meslek: Öğrenci
Yaş: 29
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: SequentiaL ve 1 misafir

Bumerang - Yazarkafe