İstediğim kolonları nasıl seçebilirim?

[Emine Şahin]

Aşağıdaki formüle göre A1 den AH aralığına kadar verileri alıyor.

With ListBox1
.ColumnCount = sut 'kolon sayısı
For i = 1 To sut
deg = deg & CLng(Columns(i).Width) & ";"
Next i
.ColumnWidths = deg
.RowSource = "satış!A1:AH" & sat 'veri aralığı
End With

Ben burada belirlediğim kolonları seçebilir miyim?
Örneğin A, C, D, E, F, H, M, N, gibi...

 

[Orion1]

Kolon seçemezsiniz.Satır seçebilirsiniz.

 

[Emine Şahin]

Satır diyeyim o halde.
Çünkü her yeni kayıtta aşağıya doğru seçtiği için öyle dedim.
Ben burada belli bir takım hücreleri (veri girişi olan) seçmek istiyorum.

 

[Orion1]

Satır diyeyim o halde.
Çünkü her yeni kayıtta aşağıya doğru seçtiği için öyle dedim.
Ben burada belli bir takım hücreleri (veri girişi olan) seçmek istiyorum.

Propertiesten Multi select özelliğini(1 nolu özellik) seçiniz.

 

[Emine Şahin]

Dediğinizi yaptım ama bu sefer gelen veriye çift tıkladığımda hata aldım.
Sarı renkli işaretlediğim yer?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'listbox kutusuna çit tıklattığınızda

For a = 0 To 12
'textboxlar için döngü kuruluyor
Controls("textbox" & a + 1) = ListBox1.Column(a)
'textboxlara sıara ile liste kutusundaki veriler yazılıyor.
Next
TextBox8 = Format(ListBox1.Column(7), "dd.mm.yyyy")
sat = ListBox1.ListIndex + 2
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

 

[Seyit Tiken]

Aşağıdaki gibi kolonları seçebilirsinz.

[A:F,H:H,M:N].Select

 

[Emine Şahin]

Aşağıdaki gibi kolonları seçebilirsinz.

[A:F,H:H,M:N].Select

Sanırım bu olabilir. Böyle tahmin ediyordum ama, yazılışını bilemedim. Hemen deneyeyim Seyit Bey.

 

[Orion1]

Dediğinizi yaptım ama bu sefer gelen veriye çift tıkladığımda hata aldım.
Sarı renkli işaretlediğim yer?

O zaman siz veri çekme değilde seçili satırdan belli sütundaki verileri almak istiyorsunuz.
Tekrar multiline özelliğini 0 yapınız.
aşağıda listboxtaki seçili satırdan textbox1 ve textbox3 e 1nnci ve 3ncü kolonlar daki veriler alınıyor.ilk sütun indisi sıfırdan başlar.

textbox1.text=listbox1.column(0)
textbox3.text=listbox1.column(2)

 

[Emine Şahin]

Özür dilerim Orion1
Seçmedeki kastım bu kodlar listBoxa A:AH arası veriler alıyor.
Sorumdaki "sütun" kastımda her kayıtta yeni bir satır eklendikçe Listbaxta çıkıyor olmasıydı.
Dosyayı ekledim. Burada yapmak istediğim Listbaxa ya istediğim hücrelerdeki veriler gelsin ya da listbaxtaki istediğim veriler (üzerine çift tıklanınca) textboxlara gönderilsin. Umarım anlatabildim.
Not: 1. textboxta tarih var. burası çift tıklama sonucu gelen veriyle değişmesin. güncel tarih kalsın. Çünkü bu verileri tekrar kaydetmekte kullanmak isiyorum.

 

[Emine Şahin]

Aşağıdaki gibi kolonları seçebilirsinz.

[A:F,H:H,M:N].Select

Seyit Bey
Denedim ama hata verdi. Böylede çıkamadım işin içinden...

 

[Emine Şahin]

arkadaşlar.
Bu satış sayfasındaki "A1:AH" veri aralığını listboxa taşımak yerine
istediğim aralıkları listboxa taşıyamıyor muyum?

With ListBox1
.ColumnCount = sut 'kolon sayısı
For i = 1 To sut
deg = deg & CLng(Columns(i).Width) & ";"
Next i
.ColumnWidths = deg
.RowSource = "satış!A1:AH" & sat 'veri aralığı
End With

 

[Orion1]

textbox9 a kadar yaptım.daha varsa diğerlerinide siz yapınız.
listboxa çift tıklama ile çalışır.Dosyanız ektedir.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox2.Text = ListBox1.Column(2)
TextBox3.Text = ListBox1.Column(3)
TextBox4.Text = ListBox1.Column(4)
TextBox5.Text = ListBox1.Column(5)
TextBox6.Text = ListBox1.Column(6)
TextBox7.Text = ListBox1.Column(7)
TextBox8.Text = ListBox1.Column(12)
TextBox9.Text = ListBox1.Column(17)

 

[Emine Şahin]

textbox9 a kadar yaptım.daha varsa diğerlerinide siz yapınız.
listboxa çift tıklama ile çalışır.Dosyanız ektedir.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox2.Text = ListBox1.Column(2)
TextBox3.Text = ListBox1.Column(3)
TextBox4.Text = ListBox1.Column(4)
TextBox5.Text = ListBox1.Column(5)
TextBox6.Text = ListBox1.Column(6)
TextBox7.Text = ListBox1.Column(7)
TextBox8.Text = ListBox1.Column(12)
TextBox9.Text = ListBox1.Column(17)

Allah razı olsun. Diğerlerinide ben ekledim. Çok güzel oldu.
Yalnız kaydet butonum pasif. Onu nasıl aktif yapabilirim. Çünkü bu verileri de yeni kayıt gibi kaydetmesini istiyorum. Mümkün mü?

 

[Orion1]

Allah razı olsun. Diğerlerinide ben ekledim. Çok güzel oldu.
Yalnız kaydet butonum pasif. Onu nasıl aktif yapabilirim. Çünkü bu verileri de yeni kayıt gibi kaydetmesini istiyorum. Mümkün mü?

Kırmızı satırı siliniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox2.Text = ListBox1.Column(2)
TextBox3.Text = ListBox1.Column(3)
TextBox4.Text = ListBox1.Column(4)
TextBox5.Text = ListBox1.Column(5)
TextBox6.Text = ListBox1.Column(6)
TextBox7.Text = ListBox1.Column(7)
TextBox8.Text = ListBox1.Column(12)
TextBox9.Text = ListBox1.Column(17)

[B][COLOR="Red"]CommandButton1.Enabled = False[/COLOR][/B]
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

 

[Emine Şahin]

Yüreğinize bilginize sağlık.
Biraz biraz kafama yatıyor ama. Çok iyi öğrenci değilimdir.
Silmesem True yapsam olur mu?

Edit. Son satırımda tarih vardı. Bunu listbaxa çağırdım. Geldi ama formatı değişik geldi?

 

[Orion1]

Yüreğinize bilginize sağlık.
Biraz biraz kafama yatıyor ama. Çok iyi öğrenci değilimdir.
Silmesem True yapsam olur mu?

Olur.

 

[Emine Şahin]

Öğreniyorum değil mi?
Siz cevap yazarken mesajımı editlemiştim.
Tarih formatında listbox göstermiyor? exceldeki tarih formatı
örneğin: 01.12.2012
bu listboxa: 34600 gibi geliyor?

 

[Orion1]

Öğreniyorum değil mi?
Siz cevap yazarken mesajımı editlemiştim.
Tarih formatında listbox göstermiyor? exceldeki tarih formatı
örneğin: 01.12.2012
bu listboxa: 34600 gibi geliyor?

initialize olayında kırmızı kodu değiştiriniz.

With ListBox1
        .ColumnCount = sut 'kolon sayısı
        For i = 1 To sut
            deg = deg & CLng(Columns(i).Width) & ";"
        Next i
        .ColumnWidths = deg
        [B][COLOR="Red"].RowSource = "satış!A2:AH" & sat 'veri aralığı[/COLOR][/B]
    End With

 

[Emine Şahin]

.RowSource = "satış!A2:AH" & sat 'veri aralığını
.RowSource = "satış!A2:AG" & sat 'olarak daralttım. Ama hata verdi.
Yanlış mı anladım acaba?

 

[Orion1]

.RowSource = "satış!A2:AH" & sat 'veri aralığını
.RowSource = "satış!A2:AG" & sat 'olarak daralttım. Ama hata verdi.
Yanlış mı anladım acaba?

daraltmadan kullanızdığında deneyin bakalım hata verecekmi?