Userform

[1903emre34@gmail.com]

Merhaba,

Aşağıdaki kod, resim 1 dosyasında yer alan satır silme düğmesine aittir; istediğim satır silme bastığımız zaman (işlem bitene kadar) resim 2'deki gibi userform1 ekrana gelmesi için kodlarda nasıl değişiklik yapabiliriz.

(resim 1)

(resim 2)

Sub ozel_hesap_sil()
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   buldu = False
   For i = sonsatir To 1 Step -1
     hesap = Cells(i, "C").Value
     yevmiye = Cells(i, "B").Value
     If i = sonsatir Then
        eskiyevmiye = yevmiye
        sayozel = 0
        saynormal = 0
        altsatir = i
     End If
     
     If yevmiye <> eskiyevmiye Then
        If saynormal = 0 Then
          For j = altsatir To i + 1 Step -1
             Rows(j).Delete
          Next j
          altsatir = i
       Else
          altsatir = i
       End If
       i = i + 1
       sayozel = 0
       saynormal = 0
       GoTo son
     End If
     
     If hesap = 001 Or hesap = 002 Or hesap = 003 Or hesap = 004 Then
        sayozel = sayozel + 1
     Else
        saynormal = saynormal + 1
     End If
son:
     eskiyevmiye = yevmiye

   Next i
End Sub

 

[cems]

Öncelikle , ekli dosyayı indirip Vba kısmına geçin ve userform1 i çalıştırın. İstediğiniz bu ise ;

son:
     eskiyevmiye = yevmiye

   Next i
[b]userform1.show[/b]
End Sub

1-Koyu yazılan kısmı kodlarınızın sonuna ekleyin
2-Ekteki dosyanın vba kısmındaki userform1 adını , eğer kendi dosyanızda bir userform1 varsa öncelikle değiştirin yoksa çakışır.
Aynı şekilde kodlarınızın sonuna eklediğiniz userform adını da değiştirin, yoksa bulamadım der .
2-Bu userformu dosyanıza her iki dosyanın vba sı acıkken surukleyerek kopyalayın

Kodlar Sayın Murat OSMA 'ya aittir , ben sadece talebinize göre revize ettim .

 

[Mustafa MUTLU]

Alternatif olsun
Önce Formu aç kodunu düğmeye atayın

Sub FormAc()
UserForm1.Show
End Sub

Sonra Formunuzun kod bölümüne aşağıdaki kodu ekleyin.

Private Sub UserForm_Activate() 
Call ozel_hesap_sil
Unload Me
End Sub

ozel_hesap_sil kodunuzun Modülde olmasına dikkat ediniz.

 

[1903emre34@gmail.com]

Teşekkürler, Sn Cems ve Mustafa bey, sorunsuz çalışıyor.