Listboxt silme problemi

[drummers]

1- Userform1 de "firma sil" makrosunu kullandığımda firmayı silmesine rağmen listbox1 de firma halen görünmekte ve silinmemekte. Fakat formu kaydedip çıkış yapıldığında ve tekrar açtığımda sorun yok, listboxta silinmiş oluyor.

2- Birde userformdaki "X" kapatma işaretini kaldırmak istiyorum

ekli dosya mevcuttur

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click() 'Firma silme makrosu
[B][COLOR="Red"]Dim sat As Long
sat = Sheets("data").Cells(65536, "B").End(xlUp).Row[/COLOR][/B]
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
ListBox1.RowSource = vbNullString
Silinecek_Satir = ListBox1.ListIndex + 2
Sheets("data").Rows(Silinecek_Satir).Delete
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
TextBox34.Text = ""
TextBox35.Text = ""
TextBox36.Text = ""
TextBox37.Text = ""
TextBox38.Text = ""
TextBox39.Text = ""
TextBox40.Text = ""
TextBox41.Text = ""
TextBox42.Text = ""
TextBox43.Text = ""
TextBox44.Text = ""
TextBox45.Text = ""
Select Case Range("A65536").End(3).Row
Case Is = 2
Range("A2") = 1
Case Is = 3
Range("A2") = 1
Range("A3") = 2
Case Is > 3
Range("A2") = 1
Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries
End Select
End If
[B][COLOR="red"]If sat > 1 Then ListBox1.RowSource = "data!B2:B" & sat[/COLOR][/B]
End If
End Sub

 

[drummers]

Evren Bey "data" sekmesindeki ana başlık kaybolmuş ve ilk müşteriyi ana başlık bölümünde gösteriyor listbox

birde "X" işaretini kaldırabilirmiyiz

 

[Orion1]

Evren Bey "data" sekmesindeki ana başlık kaybolmuş ve ilk müşteriyi ana başlık bölümünde gösteriyor listbox

birde "X" işaretini kaldırabilirmiyiz

Bunda benim kabağatım yok.Ben silme kodlarına bir şey yazmadım.Önceki mesaja Dikkatlice bakın.Benim yazdığım kodları kırmızı renge boyadım.Bakın bakalım o kırmızı kodlarda silme ile ilgili bir şey yazmışımmı?
Siz bence yazdığınız kodu dikkatli inceleyin.Demekki bir yerde hata yapmışsınız?
Yani, öyle bir şekilde söylüyorsunzu ki ben kod yazdık tansonra ben hatalı kod yazmışım manası gibi bir şey çıkıyor.

 

[drummers]

Bunda benim kabağatım yok.Ben silme kodlarına bir şey yazmadım.Önceki mesaja Dikkatlice bakın.Benim yazdığım kodları kırmızı renge boyadım.Bakın bakalım o kırmızı kodlarda silme ile ilgili bir şey yazmışımmı?
Siz bence yazdığınız kodu dikkatli inceleyin.Demekki bir yerde hata yapmışsınız?
Yani, öyle bir şekilde söylüyorsunzu ki ben kod yazdık tansonra ben hatalı kod yazmışım manası gibi bir şey çıkıyor.

siz yaptınız demedim ki, sadece düzeltebilirmisiniz manasında yazmıştım o yorumu

 

[Orion1]

siz yaptınız demedim ki, sadece düzeltebilirmisiniz manasında yazmıştım o yorumu

O zman ben yanlış anlamışım.
Kusura bakmayın.
X'i kaldırmak için excelde basit bir yöntem yoktur.Bu iş zorlama yapılarak yapılıyor.Nedir:? API lerdir.Excelde api kullanmakta pek iyi bir şey değildir.
Bunları büyük üstadalar yazarlar ve dağıtırlar .İsteyen alıp kullanır.
X i iptal etmek diye arama yapabilirsiniz.
Eğer X'i kaldırmak yerine X'ten kapatılmasını ,ayrıyetten alt+F4 ile kapatılmasınız önlemek için formun query_close olayına aşağıdaki kodu yazınız.

if closemode=0 then cancel=true

 

[drummers]

O zman ben yanlış anlamışım.
Kusura bakmayın.
X'i kaldırmak için excelde basit bir yöntem yoktur.Bu iş zorlama yapılarak yapılıyor.Nedir:? API lerdir.Excelde api kullanmakta pek iyi bir şey değildir.
Bunları büyük üstadalar yazarlar ve dağıtırlar .İsteyen alıp kullanır.
X i iptal etmek diye arama yapabilirsiniz.
Eğer X'i kaldırmak yerine X'ten kapatılmasını ,ayrıyetten alt+F4 ile kapatılmasınız önlemek için formun query_close olayına aşağıdaki kodu yazınız.

if closemode=0 then cancel=true

"X" teşekkürler. silme konusundada bir fikir beyan ederseniz sevinirim. Çözemedim

 

[Excelmy]

:dusun:

UserForm X işareti ( API ) ve silme işleminden sonra ListBox.
İnceleyiniz

 

[mustafakoker]

birde "X" işaretini kaldırabilirmiyiz

evren beyin de söylediği gibi

Bu bir API'dir

Private Declare Function GetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

 

[mustafakoker]

:dusun:

UserForm X işareti ( API ) ve silme işleminden sonra ListBox.
İnceleyiniz

sayın kuman cevaplamış zaten özür

 

[drummers]

:dusun:

UserForm X işareti ( API ) ve silme işleminden sonra ListBox.
İnceleyiniz

sayın Kuman api için teşekkürler

Fakat şöyle bir sorun var . Bu sefer firma kayıt et dediğimde kaydedilen firmalar eksik görünmekte

 

[Orion1]

Dosyanız ektedir.