Kapalı Dosyanın belli bir sayfasından lisboxa veri alma

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

Kapalı Dosyanın belli bir sayfasından lisboxa veri alma

İleti#1)  Feylosof » 10 Oca 2020 22:00

Merhabalar;
Belli aylardan oluşan sayfaları olan bir arşiv dosyam var. Bu dosyadan optionbutton yoluyla hangi ayı seçersem o sayfadan verileri listboxa aktarmak istiyorum. Bunun için kod konusunda yardımınıza ihtiyacım var. Şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 44
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Kapalı Dosyanın belli bir sayfasından lisboxa veri al

İleti#2)  Feyzullah » 10 Oca 2020 23:24

Kod: Tümünü seç
Dim conrs
Private Sub CommandButton1_Click()
For 
ob 1 To 10
If Me.Controls("OptionButton" ob).Value True Then
sayfa 
Me.Controls("OptionButton" ob).Caption
sorgu 
"Select * From [" sayfa "$B3:AL500]"
rs.Open sorgucon11
If rs.RecordCount 0 Then
With Me
.ListBox1
.ColumnCount rs.Fields.Count
.Column rs.getrows
End With
End 
If
rs.Close
End 
If
Next
End Sub
Private Sub UserForm_Initialize()
Set con VBA.CreateObject("adodb.Connection"): Set rs VBA.CreateObject("adodb.Recordset")
        
con.Open "provider=microsoft.ace.oledb.12.0;data source=" _
        ThisWorkbook
.Path "\ARŞİV.xlsm" ";extended properties=""Excel 12.0;hdr=no"""
End Sub
Private Sub UserForm_QueryClose(Cancel As IntegerCloseMode As Integer)
        
con.Close:    Set con Nothing:    Set rs Nothing
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Kapalı Dosyanın belli bir sayfasından lisboxa veri al

İleti#3)  Feylosof » 10 Oca 2020 23:50

Üsttadım ne kadar teşekkür etsem azdır. Minnet ve şükranlarımla... [oley]
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 44
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Kapalı Dosyanın belli bir sayfasından lisboxa veri al

İleti#4)  Feylosof » 11 Oca 2020 23:26

Hocam bir sorum daha olacak. Arşiv dosyasının üçüncü satırı tarihlerden oluşuyor. Bu satırı lisboxa alırken bazı sütunları olması gerektiği gibi bazı sütunları ise metinsel olarak alıyor bunu nasıl düzenleyebiliriz?
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 44
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

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

Cevap: Kapalı Dosyanın belli bir sayfasından lisboxa veri al

İleti#5)  Feyzullah » 15 Oca 2020 22:02

Sorunuzun üzerinden zaman geçmiş, ne yaptınız çöze bildiniz mi?
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Kapalı Dosyanın belli bir sayfasından lisboxa

İleti#6)  Feylosof » 15 Oca 2020 23:38

Feyzullah yazdı:Sorunuzun üzerinden zaman geçmiş, ne yaptınız çöze bildiniz mi?

Sayın hocam merhabalar. Malesef son sorumun cevabı halen bekliyor. Epeyi bir araştırdım ama çözüm bulamadım. Sütun üzerinde örnekler var ama satır ile ilgili çözüm bulamadım.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 44
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kapalı Dosyanın belli bir sayfasından lisboxa veri al

İleti#7)  Feyzullah » 18 Oca 2020 17:28

İki türlü çözüm üretebilirsiniz.

1. Arşiv dosyasındaki tarihlerin hücre biçimlerini tarih yapıp, sonra tek tek "F2 + Enter" yapmak birinci çözüm olacaktır.

2.Aşağıdaki kodu kullanarak ListBoxda 1.satırı makro kodu ile tarih formatına çevirmek. Aşağıdaki kodu CommandButton1 kodun sonuna eklemen yeterlidir.

Kod: Tümünü seç
With Me.ListBox1
For i 
= 0 To .ColumnCount - 1
.List(0, i) = Format(.List(0, i), "dd.mm.yyyy")
Next i
End With


Kullandığınız kodun son hali aşağıdaki gibide olabilir.

Kod: Tümünü seç
Dim con, rs
Private Sub CommandButton1_Click
()
For ob = 1 To 10
If Me
.Controls("OptionButton" & ob).Value = True Then
sayfa 
= Me.Controls("OptionButton" & ob).Caption
sorgu 
= "Select * From [" & sayfa & "$B3:AL500]"
rs.Open sorgu, con, 1, 1
If rs
.RecordCount > 0 Then
With Me
.ListBox1
.ColumnCount = rs.Fields.Count
.Column = rs.getrows
For i 
= 0 To .ColumnCount - 1
.List(0, i) = Format(.List(0, i), "dd.mm.yyyy")
Next i
End With
End If
rs
.Close
End If
Next
End Sub

Private Sub UserForm_Initialize
()
Set con = VBA.CreateObject("adodb.Connection"): Set rs = VBA.CreateObject("adodb.Recordset")
        con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook
.Path & "\ARŞİV.xlsm" & ";extended properties=""Excel 12.0;hdr=no"""
End Sub
Private Sub UserForm_QueryClose
(Cancel As Integer, CloseMode As Integer)
        con.Close:    Set con = Nothing:    Set rs = Nothing
End Sub

Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Kapalı Dosyanın belli bir sayfasından lisboxa veri al

İleti#8)  Feylosof » 18 Oca 2020 18:00

Feyzullah bey,
Kodu uyarladım ve gayet iyi çalışıyor şimdilik bir hata vermedi. Çok teşekkür ederim. Sizden Allah razı olsun.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 44
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: erseldemirel2 ve 3 misafir

Bumerang - Yazarkafe