Listboxtan veri aktarılırken son satırı aktarmasın.

Verilerinizi listeleyebileceğiniz liste kutusu

Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#1)  düşünceli » 06 Ekm 2020 16:36

Kod: Tümünü seç
Private Sub CommandButton1_Click()
' Arşivden Kayıt Al
If ComboBox1.Value = "" Then
MsgBox "Arşiv Dosyası Seçiniz", vbInformation, "Arşiv Uyarısı"
Exit Sub
End If
Dim con As Object, Rs As Object
    Dim Sorgu As String, dosya As String
    Set con = CreateObject("adodb.connection")
    Set Rs = CreateObject("adodb.recordSet")
    ListBox1.Clear
    dosya = ComboBox1.Value
        con.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
    ThisWorkbook.Path & "\kayıt\" & dosya & ";Extended Properties=""Excel 8.0;hdr=no""" 'veri alınacak klasör ismi
    ListBox1.Clear
                Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)" 'veri alınacak klasörde sayfa ismi
        Rs.Open Sorgu, con, 1, 1
        With ListBox1
        .ColumnCount = Rs.Fields.Count
        .ColumnWidths = "26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;23;23;23;23;23;23;23;23;23"
        .Column = Rs.GetRows
    End With
    Rs.Close
    con.Close
    Set con = Nothing: Set Rs = Nothing: dosya = vbNullString
  End Sub


Kod: Tümünü seç
    Private Sub CommandButton2_Click() 'alınan veriyi aktarma kodu
        Dim s1 As Worksheet, sat As Integer, sut As Integer
Set s1 = Sheets("liste") 'verinin aktarılacağı aktf sayfa ismi
sat = UBound(ListBox1.List, 1)
sut = UBound(ListBox1.List, 2)
s1.Range(s1.Cells(5, 7), s1.Cells(5 + sat, 7 + sut)).Value = ListBox1.List '(Cells(10 + sat, 39 + sut)10 satır başlangıcI,39 ise sütun başlangıcı
End Sub


Kod: Tümünü seç
Private Sub UserForm_Initialize()
   Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.getfolder("C:\Users\.................\Desktop\kayıt\") 'NOKTALI ARALIĞA verinin alınacağı dosyanın içinde bulunduğu klasör ismi
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub


Örnek dosyamda masaüstünde bulunan kapalı bir excel dosyasından listbox'a veri alarak aktif excel sayfasına sorunsuz aktarıyorum.
1-Benim istediğim listboxa verileri aynı şekilde almak ve listboxa aldığım veriyi excel sayfasına aktarırken listbox son satırını aktarmamak.
2-Başka bilgisayarlarda bu excel dosyası çalıştırıldığında verinin bulunduğu klasör yolu kodun içine yazıldığından sorun çıkarmasının önüne geçebilmek için klasör yolunun buton yardımıyla çağrılması sağlanabilir mi?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#2)  şahin » 06 Ekm 2020 21:31

Ekte

Desktop.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ş: 31
İleti: 1024
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: Listboxtan veri aktarılırken son satırı aktarm

İleti#3)  düşünceli » 06 Ekm 2020 21:58

şahin yazdı:Ekte

Desktop.rar


1-Benim istediğim listboxa verileri aynı şekilde almak ve listboxa aldığım veriyi excel sayfasına aktarırken listbox son satırını aktarmamak.
2-Başka bilgisayarlarda bu excel dosyası çalıştırıldığında verinin bulunduğu klasör yolu kodun içine yazıldığından sorun çıkarmasının önüne geçebilmek için klasör yolunun buton yardımıyla çağrılması sağlanabilir mi?


Teşekkür ederin sayın Şahin. Ancak, ben bu çalışmada sabit sayıda veri almadığım için lixboxta son satırı aktarmaması yeterli benim için. Bu haliyle isteğimi yerine getiremiyorum.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#4)  Justmag » 06 Ekm 2020 22:47

thisworkbook.path işinizi görecektir.Açtığınız dosya ile aynı klasör demek
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 34
İleti: 148
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

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

Cevap: Cevap: Listboxtan veri aktarılırken son satırı aktarm

İleti#5)  düşünceli » 06 Ekm 2020 23:15

Justmag yazdı:thisworkbook.path işinizi görecektir.Açtığınız dosya ile aynı klasör demek


Nereye eklemeliyim?
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#6)  düşünceli » 07 Ekm 2020 11:01

Güncel....
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#7)  düşünceli » 07 Ekm 2020 18:14

Güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#8)  düşünceli » 07 Ekm 2020 20:46

1. Numaralı isteğimi aşağıdaki gibi çözdüm. Lakin 2. talebimin çözümünü henüz bulamadım.
Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)


Sorgu = "Select * from [SABİT$AM8:BB75]where not isnull(f1)
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Cevap: Cevap: Listboxtan veri aktarılırken son satırı

İleti#9)  düşünceli » 13 Ekm 2020 17:22

düşünceli yazdı:

2-Başka bilgisayarlarda bu excel dosyası çalıştırıldığında verinin bulunduğu klasör yolu kodun içine yazıldığından sorun çıkarmasının önüne geçebilmek için klasör yolunun buton yardımıyla çağrılması sağlanabilir mi?


Konu günceldir.
https://excelvba.net/viewtopic.php?f=9&t=36074&p=257649#p257611 [komik] Örnek dosya
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#10)  Justmag » 14 Ekm 2020 08:08

Kod: Tümünü seç
Private Sub UserForm_Initialize()
   Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
yol = ThisWorkbook.Path & "\kayıt"
Set f = ds.getfolder(yol) 'NOKTALI ARALIĞA verinin alınacağı dosyanın içinde bulunduğu klasör ismi
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub

bu işinizi görür
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 34
İleti: 148
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Cevap: Listboxtan veri aktarılırken son satırı aktarm

İleti#11)  düşünceli » 14 Ekm 2020 13:22

Justmag yazdı:
Kod: Tümünü seç
Private Sub UserForm_Initialize()
   Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
yol = ThisWorkbook.Path & "\kayıt"
Set f = ds.getfolder(yol) 'NOKTALI ARALIĞA verinin alınacağı dosyanın içinde bulunduğu klasör ismi
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub

bu işinizi görür


Bu kod Userform Inilatize olayını çözdü.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
' Arşivden Kayıt Al
If ComboBox1.Value = "" Then
MsgBox "Arşiv Dosyası Seçiniz", vbInformation, "Arşiv Uyarısı"
Exit Sub
End If
Dim con As Object, Rs As Object
    Dim Sorgu As String, dosya As String
    Set con = CreateObject("adodb.connection")
    Set Rs = CreateObject("adodb.recordSet")
    ListBox1.Clear
    dosya = ComboBox1.Value
        con.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
    ThisWorkbook.Path & "\kayıt\" & dosya & ";Extended Properties=""Excel 8.0;hdr=no""" 'veri alınacak klasör ismi
    ListBox1.Clear
       
        Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)" 'veri alınacak klasörde sayfa ismi
        Rs.Open Sorgu, con, 1, 1
   
    With ListBox1
        .ColumnCount = Rs.Fields.Count
        .ColumnWidths = "26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;23;23;23;23;23;23;23;23;23"
        .Column = Rs.GetRows
    End With
    Rs.Close
    con.Close
    Set con = Nothing: Set Rs = Nothing: dosya = vbNullString
 
End Sub


[*]ThisWorkbook.Path & "\kayıt\" & dosya & ";Extended Properties=""Excel 8.0;hdr=no""" 'veri alınacak klasör ismi
[*]Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)" 'veri alınacak klasörde sayfa ismi


Bu satırlarda da; klasör ismi ve ve verinin alınacağı sayfa isimleri mevcut. Bu kısımlar da userform üzerinden seçmeli olarak yapılabilir mi
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#12)  düşünceli » 16 Ekm 2020 22:05

güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Cevap: Cevap: Listboxtan veri aktarılırken son satırı

İleti#13)  feraz » 17 Ekm 2020 11:00

düşünceli yazdı:
Justmag yazdı:
Kod: Tümünü seç
Private Sub UserForm_Initialize()
   Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
yol = ThisWorkbook.Path & "\kayıt"
Set f = ds.getfolder(yol) 'NOKTALI ARALIĞA verinin alınacağı dosyanın içinde bulunduğu klasör ismi
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub

bu işinizi görür


Bu kod Userform Inilatize olayını çözdü.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
' Arşivden Kayıt Al
If ComboBox1.Value = "" Then
MsgBox "Arşiv Dosyası Seçiniz", vbInformation, "Arşiv Uyarısı"
Exit Sub
End If
Dim con As Object, Rs As Object
    Dim Sorgu As String, dosya As String
    Set con = CreateObject("adodb.connection")
    Set Rs = CreateObject("adodb.recordSet")
    ListBox1.Clear
    dosya = ComboBox1.Value
        con.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
    ThisWorkbook.Path & "\kayıt\" & dosya & ";Extended Properties=""Excel 8.0;hdr=no""" 'veri alınacak klasör ismi
    ListBox1.Clear
       
        Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)" 'veri alınacak klasörde sayfa ismi
        Rs.Open Sorgu, con, 1, 1
   
    With ListBox1
        .ColumnCount = Rs.Fields.Count
        .ColumnWidths = "26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;23;23;23;23;23;23;23;23;23"
        .Column = Rs.GetRows
    End With
    Rs.Close
    con.Close
    Set con = Nothing: Set Rs = Nothing: dosya = vbNullString
 
End Sub


[*]ThisWorkbook.Path & "\kayıt\" & dosya & ";Extended Properties=""Excel 8.0;hdr=no""" 'veri alınacak klasör ismi
[*]Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)" 'veri alınacak klasörde sayfa ismi


Bu satırlarda da; klasör ismi ve ve verinin alınacağı sayfa isimleri mevcut. Bu kısımlar da userform üzerinden seçmeli olarak yapılabilir mi


Bu kısımlar da userform üzerinden seçmeli olarak yapılabilir mi
derken nasıl olacak.

Hadi dosya yerine combobox1.value gibi değiştirilebilirde altındaki satır nasıl olacak.
Örneği ve tam açıklamayı ekleyin bakalım abey.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Cevap: Cevap: Listboxtan veri aktarılırken son

İleti#14)  düşünceli » 20 Ekm 2020 23:10

feraz yazdı:
düşünceli yazdı:
Justmag yazdı:
Kod: Tümünü seç
Private Sub UserForm_Initialize()
   Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
yol = ThisWorkbook.Path & "\kayıt"
Set f = ds.getfolder(yol) 'NOKTALI ARALIĞA verinin alınacağı dosyanın içinde bulunduğu klasör ismi
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub

bu işinizi görür


Bu kod Userform Inilatize olayını çözdü.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
' Arşivden Kayıt Al
If ComboBox1.Value = "" Then
MsgBox "Arşiv Dosyası Seçiniz", vbInformation, "Arşiv Uyarısı"
Exit Sub
End If
Dim con As Object, Rs As Object
    Dim Sorgu As String, dosya As String
    Set con = CreateObject("adodb.connection")
    Set Rs = CreateObject("adodb.recordSet")
    ListBox1.Clear
    dosya = ComboBox1.Value
        con.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
    ThisWorkbook.Path & "\kayıt\" & dosya & ";Extended Properties=""Excel 8.0;hdr=no""" 'veri alınacak klasör ismi
    ListBox1.Clear
       
        Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)" 'veri alınacak klasörde sayfa ismi
        Rs.Open Sorgu, con, 1, 1
   
    With ListBox1
        .ColumnCount = Rs.Fields.Count
        .ColumnWidths = "26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;26;23;23;23;23;23;23;23;23;23"
        .Column = Rs.GetRows
    End With
    Rs.Close
    con.Close
    Set con = Nothing: Set Rs = Nothing: dosya = vbNullString
 
End Sub


[*]ThisWorkbook.Path & "\kayıt\" & dosya & ";Extended Properties=""Excel 8.0;hdr=no""" 'veri alınacak klasör ismi
[*]Sorgu = "Select * from [SABİT$AM8:BB]where not isnull(f1)" 'veri alınacak klasörde sayfa ismi


Bu satırlarda da; klasör ismi ve ve verinin alınacağı sayfa isimleri mevcut. Bu kısımlar da userform üzerinden seçmeli olarak yapılabilir mi


Bu kısımlar da userform üzerinden seçmeli olarak yapılabilir mi
derken nasıl olacak.

Hadi dosya yerine combobox1.value gibi değiştirilebilirde altındaki satır nasıl olacak.
Örneği ve tam açıklamayı ekleyin bakalım abey.


Örnek dosya konu başlığında var sayın Feraz.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#15)  feraz » 20 Ekm 2020 23:30

Evet abey dosyayı incelemiştim bişey anlamamıştım.
Bu yüzden sormuştum 8 kişi daha indirmiş onlarda anlamamış galiba :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Listboxtan veri aktarılırken son satırı aktarm

İleti#16)  düşünceli » 25 Ekm 2020 17:35

feraz yazdı:Evet abey dosyayı incelemiştim bişey anlamamıştım.
Bu yüzden sormuştum 8 kişi daha indirmiş onlarda anlamamış galiba :)

Yardım talebimi resimli olarak detaylandırarak aşağıda ki linkte ekledim sayın Feraz.

http://excelvba.net/viewtopic.php?f=78&t=36146
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#17)  feraz » 25 Ekm 2020 19:20

O konuya dosyayı ekledim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Listboxtan veri aktarılırken son satırı aktarmasın.

İleti#18)  düşünceli » 25 Ekm 2020 19:40

Teşekkür ederim.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 195
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun


Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe