sil butonu

[DeathMoment]

çalışmamda sil butonuna bastığımda satırı siliyor ancak sıra noya 1den 8'e kadar sıralama yapıyor sıralama yapmamasını istiyorum yardımcı olur musunuz?

 

[Muzaffer Ali]

Sil butonunda bulunan aşağıdaki kodları siliniz

For j = 2 To Sayfa2.Range("b65536").End(3).Row
Sheets("Data").Cells(j, 1).Value = j - 1
Next

 

[DeathMoment]

Sil butonunda bulunan aşağıdaki kodları siliniz

For j = 2 To Sayfa2.Range("b65536").End(3).Row
Sheets("Data").Cells(j, 1).Value = j - 1
Next

şuan o sorun halloldu peki sıra numarasını nasıl düzgün bir şekilde sıralayabilirim mesela 3. satırı sildiğimde 1,2,4'e atlıyor bunu nasıl 1,2,3 olacak şekilde yapabiliriz?

 

[Muzaffer Ali]

Sildiğimiz kodu tekrar yerine yaz Sayfa2 yazan yeri Sheets("Data") yap

For j = 2 To Sheets("Data").Range("b65536").End(3).Row
Sheets("Data").Cells(j, 1).Value = j - 1
Next

 

[DeathMoment]

tamam sorun çözüldü sağolun hocam

 

[DeathMoment]

Sildiğimiz kodu tekrar yerine yaz Sayfa2 yazan yeri Sheets("Data") yap

Hocam birde listboxun boyutunu büyütmeden bütün sütunları sığdırabilmemizin bir yolu var mı?

 

[Muzaffer Ali]

ListBox1.ColumnWidths = "80;120"

Satırında değişiklik yaparak sığdırabilirsiniz
Aşağıdaki gibi

ListBox1.ColumnWidths = "80;100"

 

[DeathMoment]

peki userforma buton ile başka bir userform çağırdım 2 sonradan açılan userformu kapattığımda 1. userformda kapanıyor ancak ben sadece 2.sonradan açılanın kapanmasını istiyorum onu nasıl yapabilirim?

 

[Muzaffer Ali]

muhtemelen 2. formunuz kapanırken çalışan End kodu kapatıyordur. Yoksa 2. açılan form kapatılınca 1. form normal durumda kapanmaz.

 

[DeathMoment]

muhtemelen 2. formunuz kapanırken çalışan End kodu kapatıyordur. Yoksa 2. açılan form kapatılınca 1. form normal durumda kapanmaz.

2. forumda herhangi bir kapat butonu yok yalnız direk x kapatınca ikisi birden kapanıyor

 

[Muzaffer Ali]

dosyanızı buraya ekler misiniz? Dosyaya bakarak çözelim.

 

[DeathMoment]

yeni ürün ekle ile açılan userformdan bahsediyorum

 

[Muzaffer Ali]

Yeni Ürün butonuna tıklatınca çalışan kodlar

Private Sub CommandButton6_Click()
    UserForm2.Show
    Unload Me
    Sayfa1.Activate
End Sub

Unload Me : Beni kapat demektir bu satırı silmelisiniz.

 

[DeathMoment]

Yeni Ürün butonuna tıklatınca çalışan kodlar

Private Sub CommandButton6_Click()
    UserForm2.Show
    Unload Me
    Sayfa1.Activate
End Sub

Unload Me : Beni kapat demektir bu satırı silmelisiniz.

teşekkür ederim hocam bugün sizi çok yordum elinize sağlık sorduğum her soruya cevap verdiniz tekrar teşekkür ederim

 

[Muzaffer Ali]

teşekkür ederim hocam bugün sizi çok yordum elinize sağlık sorduğum her soruya cevap verdiniz tekrar teşekkür ederim

Hayır yorulmadım keyif aldım iyi çalışmalar.

 

[DeathMoment]

Hayır yorulmadım keyif aldım iyi çalışmalar.

hocam çalışmamdaki düzelt butonu çalışmıyor başka çalışmamda çalışan kod bu çalışmada işlevi aynı olmasına rağmen çalışmıyor yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Private Sub ListBox1_Click()

Satırını silip aşağıdakini yazın

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

 

[DeathMoment]

Private Sub ListBox1_Click()

Satırını silip aşağıdakini yazın

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

sağolun hocam

 

[DeathMoment]

Private Sub ListBox1_Click()

Satırını silip aşağıdakini yazın

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

hocam userform3'teki comboboxta aynı değerlerin 1 tane gözükmesi için yapmamız gereken nedir?

 

[Muzaffer Ali]

Dosya ekte