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 26-01-2015, 12:28   #21
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,902
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Sadece 4. satırdaki metni alacaksanız; bu kodlar yeterli olacaktır..
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Emre()
    Dosya = ThisWorkbook.Path & "\okubeni.txt"
    Bağlan = CreateObject("Scripting.FileSystemObject").OpenTextFile(Dosya, 1, True).ReadAll
    Ayır = Split(Bağlan, vbNewLine)
    MsgBox Ayır(3)
End Sub
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-01-2015, 12:40   #22
tamer42
Destek Ekibi
 
tamer42 kullanıcısının avatarı
 
Giriş: 11/03/2005
Şehir: Ankara
Mesaj: 1,185
Excel Vers. ve Dili:
Office 2013 İngilizce
Varsayılan

Alıntı:
Murat OSMA tarafından gönderildi Mesajı Görüntüle
Sadece 4. satırdaki metni alacaksanız; bu kodlar yeterli olacaktır..
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Emre()
    Dosya = ThisWorkbook.Path & "\okubeni.txt"
    Bağlan = CreateObject("Scripting.FileSystemObject").OpenTextFile(Dosya, 1, True).ReadAll
    Ayır = Split(Bağlan, vbNewLine)
    MsgBox Ayır(3)
End Sub
Sn Murat OSMA teşekkürler,

Bu işlemi "ADODB.Connection" , "ADODB.RECORDSET" ile nasıl yapabiliriz?

iyi Çalışmalar.
tamer42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-01-2015, 16:07   #23
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,902
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

ADO ile bu şekilde istediğiniz bir kısmı alabilirsiniz
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Emre()
    Dim con As Object, rs As Object
    Set con = CreateObject("Adodb.Connection")
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
    ThisWorkbook.Path & ";extended properties=""Text;FMT=Delimited"""
    Set rs = con.Execute("select * from [okubeni.txt]")
    Do While Not rs.EOF
        If rs(0).Value Like "*ExcelVBA*" Then
            MsgBox rs(0).Value
            Exit Do
        End If
        rs.movenext
    Loop
    Set rs = Nothing: Set con = Nothing
End Sub
Bu bir diğer alternatif olsun;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Emre()
    Dim veriler$, filtre, aranan$, veri$, say%
    veriler = ThisWorkbook.Path & "\okubeni.txt"
    filtre = ThisWorkbook.Path & "\filtre.txt"
    Open veriler For Input As #1
    Open filtre For Output As #2
    If Err <> 0 Then
        MsgBox "Filtre edilecek veri bulunamadı."
        Exit Sub
    End If
    aranan = "ExcelVBA"
    Do While Not EOF(1)
        Line Input #1, veri
        If InStr(1, veri, aranan) Then
            say = say + 1
            Print #2, veri
        End If
    Loop
    Close
    MsgBox say & " satır veri bulundu." & vbNewLine & filtre
    CreateObject("Shell.Application").Open filtre
End Sub
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-01-2015, 16:43   #24
tamer42
Destek Ekibi
 
tamer42 kullanıcısının avatarı
 
Giriş: 11/03/2005
Şehir: Ankara
Mesaj: 1,185
Excel Vers. ve Dili:
Office 2013 İngilizce
Varsayılan

Alıntı:
Murat OSMA tarafından gönderildi Mesajı Görüntüle
ADO ile bu şekilde istediğiniz bir kısmı alabilirsiniz
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Emre()
    Dim con As Object, rs As Object
    Set con = CreateObject("Adodb.Connection")
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
    ThisWorkbook.Path & ";extended properties=""Text;FMT=Delimited"""
    Set rs = con.Execute("select * from [okubeni.txt]")
    Do While Not rs.EOF
        If rs(0).Value Like "*ExcelVBA*" Then
            MsgBox rs(0).Value
            Exit Do
        End If
        rs.movenext
    Loop
    Set rs = Nothing: Set con = Nothing
End Sub
Bu bir diğer alternatif olsun;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Emre()
    Dim veriler$, filtre, aranan$, veri$, say%
    veriler = ThisWorkbook.Path & "\okubeni.txt"
    filtre = ThisWorkbook.Path & "\filtre.txt"
    Open veriler For Input As #1
    Open filtre For Output As #2
    If Err <> 0 Then
        MsgBox "Filtre edilecek veri bulunamadı."
        Exit Sub
    End If
    aranan = "ExcelVBA"
    Do While Not EOF(1)
        Line Input #1, veri
        If InStr(1, veri, aranan) Then
            say = say + 1
            Print #2, veri
        End If
    Loop
    Close
    MsgBox say & " satır veri bulundu." & vbNewLine & filtre
    CreateObject("Shell.Application").Open filtre
End Sub
Çok teşekkürler...
tamer42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-01-2015, 16:47   #25
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,902
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Rica ederim, iyi akşamlar.
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Ç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 09:46


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden