Ara,bul,süz,Aktar makrosunda hata (eksik aktarma)

[YILDIZ YAĞMURU]

Siteden elde ettiğim aşağıda ki aktar makrosunda eksik satır aktarma sorunu var. nerede hata var acaba yardımcı olurmusunuz ? son iki satırı eksik aktarıyor sanırım,???

 

[Ziynettin]

Merhaba,

Private Sub CommandButton1_Click()
Range("b2,b3:b155").ClearContents
Range("b2").Value = ComboBox1.Value
Set s1 = Sheets("ana sayfa")
sat = ListBox1.ListCount [COLOR="Red"]+ 2[/COLOR]
sut = ListBox1.ColumnCount
Range("b5").Select
s1.Range(s1.Cells(3, "a"), s1.Cells(sat, sut)) = ListBox1.List
Range("b5").Select
End Sub

kod satırındaki kırmızı yazıyı ekleyerk denermisiniz

 

[YILDIZ YAĞMURU]

değişen bir durum yok

malesef aynı sorun devam ediyor. ayrıca galiba bu kodda baska sorunda var . süzme işlemini ve aktarma işlemini sadece bir kolonda yapmasını istyorum bu kod galıba 2 kolonda yapıyor ..

Merhaba,

Private Sub CommandButton1_Click()
Range("b2,b3:b155").ClearContents
Range("b2").Value = ComboBox1.Value
Set s1 = Sheets("ana sayfa")
sat = ListBox1.ListCount [COLOR="Red"]+ 2[/COLOR]
sut = ListBox1.ColumnCount
Range("b5").Select
s1.Range(s1.Cells(3, "a"), s1.Cells(sat, sut)) = ListBox1.List
Range("b5").Select
End Sub

kod satırındaki kırmızı yazıyı ekleyerk denermisiniz

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, i As Long, sat As Long
ListBox1.RowSource = ""
Set s1 = Sheets("ana sayfa")
Set s2 = Sheets("veri")
s1.Range("A3:A" & Rows.Count & ",b3:b155").ClearContents
s1.Range("b2").Value = ComboBox1.Value
s2.Range("B3:D3").AutoFilter
s2.Range("B3").AutoFilter field:=1, Criteria1:=ComboBox1.Value
s2.Range("B3").CurrentRegion.Offset(1, 2).Copy s1.Range("B3")
ListBox1.RowSource = "'ana sayfa'!B3:B" & s1.Cells(Rows.Count, "B").End(xlUp).Row
s2.Range("B2").AutoFilter
sat = s1.Cells(Rows.Count, "B").End(xlUp).Row
For i = 3 To sat
    s1.Cells(i, "A").Value = i - 2
Next i
End Sub

 

[YILDIZ YAĞMURU]

Sayın Orion1 bir şey daha sorabilirmiyim.

kod için çok teşekkürler .. "ana sayfa" ya sıra numarası verdiriyorum fakat aktar işleminden sonra sıra numarası oluşmuyor. B sütununda değişiklik yaptıktan sonra sıra numaraları geliyor. acaba bu sorunu çözebilirmisiniz.

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet
ListBox1.RowSource = ""
Set s1 = Sheets("ana sayfa")
Set s2 = Sheets("veri")
s1.Range("b2,b3:b155").ClearContents
s1.Range("b2").Value = ComboBox1.Value
s2.Range("B3:D3").AutoFilter
s2.Range("B3").AutoFilter field:=1, Criteria1:=ComboBox1.Value
s2.Range("B3").CurrentRegion.Offset(1, 2).Copy s1.Range("B3")
ListBox1.RowSource = "'ana sayfa'!B3:B" & s1.Cells(Rows.Count, "B").End(xlUp).Row
s2.Range("B2").AutoFilter
End Sub

 

[Orion1]

dosyayı güncelledim.
4 nolu mesajdan indirebilirsiniz.

kod için çok teşekkürler .. "ana sayfa" ya sıra numarası verdiriyorum fakat aktar işleminden sonra sıra numarası oluşmuyor. B sütununda değişiklik yaptıktan sonra sıra numaraları geliyor. acaba bu sorunu çözebilirmisiniz.

 

[YILDIZ YAĞMURU]

boş satırlara da numara veriyor

dosyayı güncelledim.
4 nolu mesajdan indirebilirsiniz.

sadece dolu satıırlara numara veremez mi ?

 

[YILDIZ YAĞMURU]

Sn Orion1

dosyayı güncelledim.
4 nolu mesajdan indirebilirsiniz.

sıra numarası vermeyi 155 satırla sınırlandırabilirmiiyiiz acaba .. 155 den sonraki bazı satırların B sütununda ki verileride dikkate alıyor ve o satıra kadar numaralandırıyor . numaralandırma işlemini 155 satıra kadar sınırlandırabilirmisiniz . sizi yordum biliyorum . çok özür dilerim ..