makro ile süz, diğerlerini sil

[arh+]

merhabalar
aşağıdaki soruma cevap vermeniz dileği ile


Range("A1:G1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Text



bu kodun devamında süzülenler haricindeki hücrelerdeki verileri silmek için nasıl bir kod lazım

teşekkürler

 

[arh+]

merhabalar

araştırmama rağmen bulamadım
___________________
Range("A1:G1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Text

_______________________

kodun devamında olmasını istediğim işlem
gizli satırların silinmesi
sadece kritere göre süzülmüş olan satırların sayfada kalması

malesef benzer bir çalışma bulamadım
yardımınızı bekliyorum

ilginize teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Sadece combodaki kritere göre veriler kalacaksa süzmeye gerek yok

Private Sub ComboBox1_Change()
Dim SUT As Integer
On Error GoTo ERR
For SUT = Cells(65536, "A").End(3).Row To 1 Step -1
If Cells(SUT, "A") <> ComboBox1.Value Then
Cells(SUT, "A").EntireRow.Delete SHIFT:=xlUp
End If
Next
ERR:
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:A" & Cells(65536, "A").End(3).Row
End Sub

 

[arh+]

sayın N.Ziya Hiçdurmaz
ilginize ve yardımınıza teşekkürler

dediğiniz gibi süzmeye gerek kalmadanda istenilen veri alınabiliyor

ekteki örnek dosyada verdiğim sıralamayı yaparsanız takıldığım son noktayı sizde fark edecek belkide kökten farklı bir çözüm sunacaksınız

destek olacak tüm arkadaşlara teşekkürler

sıralama
1 click / CommandButton
2 click / alzeme tanımla düzenle
3 click / alınan firma ( ACAR )
4 click / ürün firma ( OMT )
5 click / ürün adı ( PRF )
6 click / ürün detay1 ( 1045 )

bu aşamadan sonra bütün veriler siliniyor
benim anladığım kriterin rakam olmasından sorun kaynaklanıyor
ama rakamlarda bana lazım
umarım sorunu anlatabildim
teşekkürler

 

[arh+]

bilgisi olanlardan yardım bekliyorum

teşekkürler

 

[arh+]

selamlar
muhtemelen sorunu anlatamadım diye tahmin ediyorum
ve yeni bir örnekle yeniden soruyorum
harflerden oluşan kriterler seçildiğinde harici satırlar silinirken ve seçilmiş olanlar kalırken
neden rakamların oluşturduğu kriterde bütün satırlar siliniyor

kodda düzenleme ile bu bu sorun giderilebilirmi

teşekkürler

 

[omerceri]

ComboBox2'in kodunu aşağıdaki gibi değiştirin
Private Sub ComboBox2_Change()
Dim SUT As Integer
On Error GoTo ERR
For SUT = Cells(65536, "B").End(3).Row To 2 Step -1
If IsNumeric(ComboBox2.Value) Then
aa = ComboBox2.Value * 1
Else
aa = ComboBox2.Value
End If
If Cells(SUT, "B") <> aa Then
Cells(SUT, "B").EntireRow.Delete SHIFT:=xlUp
End If
Next
ERR:
End Sub

 

[arh+]

te&#351;ekk&#252;r ederim say&#305;n omerceri

uzun s&#252;redir bekledi&#287;im bir cevapt&#305;
ilk denemem olumlu
b&#252;t&#252;n combobooks lara rakam gelme ihtimali oldu&#287;u i&#231;in hepsini yeniden d&#252;zenleyece&#287;im

te&#351;ekk&#252;rler