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

Katılım
17 Nisan 2013
Mesajlar
101
Excel Vers. ve Dili
2007 Microsoft Office Türkçe
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,???
 

Ekli dosyalar

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
Merhaba,
Kod:
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
 
Katılım
17 Nisan 2013
Mesajlar
101
Excel Vers. ve Dili
2007 Microsoft Office Türkçe
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,
Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

Katılım
17 Nisan 2013
Mesajlar
101
Excel Vers. ve Dili
2007 Microsoft Office Türkçe
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.:cool:
Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
dosyayı güncelledim.
4 nolu mesajdan indirebilirsiniz.:cool:
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.
 
Katılım
17 Nisan 2013
Mesajlar
101
Excel Vers. ve Dili
2007 Microsoft Office Türkçe
Sn Orion1

dosyayı güncelledim.
4 nolu mesajdan indirebilirsiniz.:cool:
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 .. :)
 
Üst