Listboxta seçilen satırların işaretlenmesi

[acolkesen1]

Merhaba,
Sayın Halit3 ün aşağıdaki kodlarıyla listboxta birden fazla satırı seçerek başka sayfaya kopyalıyorum.

Private Sub CommandButton7_Click()
sec = ""
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
If sec = "" Then
sec = i + 1 & ":" & i + 1
Else
sec = i + 1 & ":" & i + 1 & "," & sec
End If
End If
Next

Range(sec).Copy [Fatura!a65536].End(3).Offset(1, 0)

'Range(sec).Delete Shift:=xlUp

End Sub

Bu kopyalama işleminden sonra seçilen satırların başlarına (1. sütunda) "*" işareti koymak istiyorum.. ilgilenen arkadaşlara teşekkür ederim.

 

[acolkesen1]

Bir çözüm olabilir mi acaba?

 

[halit3]

Merhaba,
Sayın Halit3 ün aşağıdaki kodlarıyla listboxta birden fazla satırı seçerek başka sayfaya kopyalıyorum.

Private Sub CommandButton7_Click()
sec = ""
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
If sec = "" Then
sec = i + 1 & ":" & i + 1
Else
sec = i + 1 & ":" & i + 1 & "," & sec
End If
End If
Next

Range(sec).Copy [Fatura!a65536].End(3).Offset(1, 0)

'Range(sec).Delete Shift:=xlUp

End Sub

Bu kopyalama işleminden sonra seçilen satırların başlarına (1. sütunda) "*" işareti koymak istiyorum.. ilgilenen arkadaşlara teşekkür ederim.

Bunu denermisiniz.

Private Sub CommandButton7_Click()
sec = ""
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
If sec = "" Then
sec = i + 1 & ":" & i + 1
Else
sec = i + 1 & ":" & i + 1 & "," & sec
End If
End If
Next
Range(sec).Copy
son = Worksheets("Fatura").Cells(Rows.Count, "B").End(3).Row + 1
On Error Resume Next
Sheets("Fatura").Range("a" & son).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
Cells(i + 1, 1).Value = "*"
End If
Next
End Sub

 

[halit3]

Yada böyle deneyiniz.

Private Sub CommandButton7_Click()
sec = ""
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
Cells(i + 1, 1).Value = "*"
If sec = "" Then
sec = i + 1 & ":" & i + 1
Else
sec = i + 1 & ":" & i + 1 & "," & sec
End If
End If
Next
Range(sec).Copy
son = Worksheets("Fatura").Cells(Rows.Count, "B").End(3).Row + 1
On Error Resume Next
Sheets("Fatura").Range("a" & son).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

 

[acolkesen1]

Merhaba halit3,
Size ne kadar teşekkür etsem azdır. Dün sizin ilk cevabınızdan bu yana uğraşıyorum ancak bilgim yetmiyordu.. Elinize sağlık, esen kalın..

 

[halit3]

Merhaba halit3,
Size ne kadar teşekkür etsem azdır. Dün sizin ilk cevabınızdan bu yana uğraşıyorum ancak bilgim yetmiyordu.. Elinize sağlık, esen kalın..

İyi çalışmalar

 

[muhceli]

Sayın "Halit3"
ListBox'ta verileri seçtik.
seçme işlemine birsüre ara verdik.
UserFormu kapattık.
UserForm'u tekrar açtığımızda, seçilen veriler tekrar seçili olarak açılırmı?.
Bunun için nasıl bir işlem yapabiliriz.
UserForm'u kapatırken ".Hide" komutunu kullanmak istemiyoruz. Çünkü Yaptığımız işlem tamamen kapatma işlemi.

 

[halit3]

Sayın "Halit3"
ListBox'ta verileri seçtik.
seçme işlemine birsüre ara verdik.
UserFormu kapattık.
UserForm'u tekrar açtığımızda, seçilen veriler tekrar seçili olarak açılırmı?.
Bunun için nasıl bir işlem yapabiliriz.
UserForm'u kapatırken ".Hide" komutunu kullanmak istemiyoruz. Çünkü Yaptığımız işlem tamamen kapatma işlemi.

Seçim yapılan listbox satırlarına ait userformu kapatıp yeniden açarsanız seçim işlemleri yeniden seçmeniz gerekir diğer türlü seçim yaptıktan sonra kapatırken sayfanın bir yerine seçilen satırları kayıt etmek mümkün gibi daha sonra açılışta bu kayıt edilen satırları yeniden çağrılabilir.

Örnek uygulamada J sütünuna listboxda seçilen satırların index numaralarının kayıtı yapılmaktadır.

 

[muhceli]

Sayın "Halit3";
Geç cevap verdiğim için bağışlayınız.
Birkaç gündür evden uzaktaydım.
bugun, mesajlarımı kontrol etme imkanım oldu.
Bu cevabınızla sorunum ÇÖZÜMLENDİ.
Tekrar teşekkür ederim.

 

[halit3]

Sayın "Halit3";
Geç cevap verdiğim için bağışlayınız.
Birkaç gündür evden uzaktaydım.
bugun, mesajlarımı kontrol etme imkanım oldu.
Bu cevabınızla sorunum ÇÖZÜMLENDİ.
Tekrar teşekkür ederim.

İyi çalışmalar

 

[Rainbows]

Halit bey listbox da tümünü sec nasıl yapabiliriz.

 

[halit3]

Halit bey listbox da tümünü sec nasıl yapabiliriz.

ListBox1.MultiSelect = fmMultiSelectMulti

ListBox MultiSelect düzeni (1) yukarıdaki gibi olmalı aşağğıdaki kod hepsini seçiyor.


Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next
End Sub

 

[Rainbows]

halit bey cok tesekkür ederim hızlı cevabınız icin.

konuyu baska bir baslıkta actım ama hala cvp alamadıgım icin size burda sormak istiyorum.

ekli dosyada sheet2 de ekle butonuna tıklayınca yeni bir satır ve combobox ekliyor ama bu ekledigi combobox ın linkedcell ine "b4" ve listfillrange ine de "data!a2:a500" getirmek istiyorum bunu yapmak mümkünmüdür.

 

[halit3]

halit bey cok tesekkür ederim hızlı cevabınız icin.

konuyu baska bir baslıkta actım ama hala cvp alamadıgım icin size burda sormak istiyorum.

ekli dosyada sheet2 de ekle butonuna tıklayınca yeni bir satır ve combobox ekliyor ama bu ekledigi combobox ın linkedcell ine "b4" ve listfillrange ine de "data!a2:a500" getirmek istiyorum bunu yapmak mümkünmüdür.

Sorunuz bu konu başlığına uymuyor. Cevap alamadığınız konu başlığını ben bulamadım.

Bunu denermisiniz.

Sub sutunekle()
Rows("5:5").Copy
Rows(4).Insert xlDown
Rows("4:4").Select
ActiveSheet.Paste
Dim Obj As Object
Dim Cell As Range
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1")
With Obj
.Left = 1.25
.Top = 137.5
.Height = 25
.Width = 433.75
.LinkedCell = "b4"
.ListFillRange = "data!a2:a500"
End With
End Sub

 

[Rainbows]

halit bey ilginiz icin tesekkürler.

peki burda eklenen combobox ı silme sansım varmı veya sayfanın ilk haline nasıl dönderebiliriz.

temizle butonuna tıkladıgım zaman örnegin 10 tane satır olmasını nasıl saglayabilirim.

 

[halit3]

halit bey ilginiz icin tesekkürler.

peki burda eklenen combobox ı silme sansım varmı veya sayfanın ilk haline nasıl dönderebiliriz.

temizle butonuna tıkladıgım zaman örnegin 10 tane satır olmasını nasıl saglayabilirim.

14 nolu mesajımda söylemiştim sorunuz bu konu başlığına uymuyor sorunuzu başka bir konu başlığında sorun.?

 

[Rainbows]

peki tesekkürler..