Listbox sorunu

[Pila_]

Merhaba arkadaşlar benim şöyle bir sorum olacak listboxtan seçim yaptıktan sonra çift tıklayınca veya enter'a basınca pencerenin kapanması için hangi kodu kullanmam gerekli yardımcı olursanız sevinirim.

 

[AdemCan]

Merhabalar;
Örnek olarak; ListBox1_DblClick kodlarına Unload Me satırını eklerseniz, çift tıkladığınızda kapanır.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub

 

[Pila_]

Merhabalar;
Örnek olarak; ListBox1_DblClick kodlarına Unload Me satırını eklerseniz, çift tıkladığınızda kapanır.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub

Uyguladım ve çift tıklayınca kapandı. Çok teşekkürler.

 

[Pila_]

Bir sorum daha olacak örnek dosyada firma ekledim diyelim vba da eklenen firmayı a-z ye nasıl sıralarım FİRMA ÜNVANI VERGİ DAİRESİ VERGİ NO satırlarını birlikte.

 

[AdemCan]

Merhabalar;
Firma kayıt için kullandığınız kodlara şu satırı ekleyiniz.

Sheets("[COLOR="Red"]Sayfanın_Adı[/COLOR]").Range("A2:C" & Rows.Count).Sort key1:=Range("a2"), ORDER1:=xlAscending

 

[Pila_]

Merhabalar;
Firma kayıt için kullandığınız kodlara şu satırı ekleyiniz.

Sheets("[COLOR="Red"]Sayfanın_Adı[/COLOR]").Range("A2:C" & Rows.Count).Sort key1:=Range("a2"), ORDER1:=xlAscending

Tşkler uyguladım oldu fakat makroyu çalıştırdığımda şu hatayı veriyor.

 

[AdemCan]

Merhabalar;
For döngüsünün dışında kullanınız. Yani Next Satırdan sonra ekleyiniz. Olmaz ise dosyanızın örneğini paylaşınız, dosya üzerinden deneme yapalım.

 

[Pila_]

Merhabalar;
For döngüsünün dışında kullanınız. Yani Next Satırdan sonra ekleyiniz. Olmaz ise dosyanızın örneğini paylaşınız, dosya üzerinden deneme yapalım.

Firma Seç.xlsm

Dosya ekte tşk ederim.

 

[AdemCan]

Merhabalar;
KayıtlarıAl kodlarında Dim KayıtSayısı, Satır As Variant satırının altına

Sheets("VD.VN").Range("A2:C" & Rows.Count).Sort key1:=Sheets("VD.VN").Range("a2"), ORDER1:=xlAscending

bu satırı ekleyiniz.

 

[Pila_]

Merhabalar;
KayıtlarıAl kodlarında Dim KayıtSayısı, Satır As Variant satırının altına

Sheets("VD.VN").Range("A2:C" & Rows.Count).Sort key1:=Sheets("VD.VN").Range("a2"), ORDER1:=xlAscending

bu satırı ekleyiniz.

Merhabalar çok teşekkür ederim ilgi ve alakanıza. Verdiğiniz kod harika çalışıyor emeğinize sağlık.

 

[AdemCan]

Merhaba;
Rica ederim, iyi çalışmalar.