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 05-11-2013, 08:28   #1
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,119
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan Textbox a veri almak

Merhaba arkadaşlar;

Göndermiş olduğum ekli dosya içinden verileri textboxlara nasıl alabilirim? detaylar ekte mevcuttur. Yardımcı arkadaşa şimdiden teşekkür ederim.

MyResult.txt
result.xls
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 10:26   #2
Trilenium
Destek Ekibi
 
Trilenium kullanıcısının avatarı
 
Giriş: 16/09/2008
Şehir: İstanbul
Mesaj: 520
Excel Vers. ve Dili:
2007
Varsayılan

Modülünüze aşagıdaki fonksiyonu ekleyiniz


Function SatirOku(DosyaAdi, SatirNo)
ff = FreeFile
Open "c:\a.txt" For Input As ff
Do While Not EOF(ff)

Line Input #ff, Oku
Sat = Sat + 1

If SatirNo = Sat Then
SatirOku = Oku
Close ff
Exit Function
End If

Loop
Close ff

SatirOku = 0
MsgBox "İstenen satır dosyada yok", 16
End Function


Dügmenize de

MsgBox SatirOku(DosyaAdi, 34)
MsgBox SatirOku(DosyaAdi, 115)
MsgBox SatirOku(DosyaAdi, 117)
__________________
Suzuki Gsxr 1300 Hayabusa Turbo Racing
Trilenium Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 12:43   #3
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,119
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Trilenium;

Hocam çok teşekkür ediyorum tammadır, dediğiniz gibi modüle ekledim.,, çalıştı.. Yalnız küçük eksiklikler var; sadece sayısal değerler gerekli hocam. excel tablomdaki gibi.. bir de myresult.txt değişken.. her zaman aynı satır sayısı olmayabiliyor...

myresult.txt içindeki sabit yazılar : image base - file pointer to raw data - virtual address
örnek ;

400000 image base ---> sadece 400000 alacağız.. diğer ikiside yine sadece sayılar olacak hocam 95000 ve 90000

Bu mesaj en son " 05-11-2013 " tarihinde saat 12:50 itibariyle k0081 tarafından düzenlenmiştir....
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 13:17   #4
Trilenium
Destek Ekibi
 
Trilenium kullanıcısının avatarı
 
Giriş: 16/09/2008
Şehir: İstanbul
Mesaj: 520
Excel Vers. ve Dili:
2007
Varsayılan

TextBox1 = Mid(SatirOku(DosyaAdi, 34), 11, 6)
TextBox2 = Mid(SatirOku(DosyaAdi, 115), 3, 6)
TextBox3 = Mid(SatirOku(DosyaAdi, 117), 3, 6)
__________________
Suzuki Gsxr 1300 Hayabusa Turbo Racing
Trilenium Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 17:50   #5
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,119
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Trilenium;

Hocam çok teşekkür ediyorum tamamdır..

Bu mesaj en son " 08-11-2013 " tarihinde saat 08:59 itibariyle k0081 tarafından düzenlenmiştir....
k0081 Ç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 08:57


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- 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- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden