bu makroyu user forma uygulayabilirmiyiz

[jambow]

arkadaşlar isim kaydetme ve sıralama makrosu var a1 deki ismi sayfa2 a sutununa yazıyor mükerrek konrolu yapıyor ben bu makroyu user forma kaydetmek isityorum . yani isimleri userform ile kaydetmek isityorum. yardım lütfen

 

[mami68]

Kodları button içine ekle oluyor.

Private Sub CommandButton2_Click()
Dim k As Range
Set k = Sheets("Sayfa2").Range("a:a").Find(Sheets("Sayfa1").Range("A1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
MsgBox "[ " & Sheets("Sayfa1").Range("A1").Value _
& " ] Sayfa2de kayıtlı.Kayıt yapılmadı..!!", vbCritical, "UYARI"

Exit Sub
Else
Sheets("Sayfa2").Cells(65536, "a").End(xlUp)(2, 1) = Sheets("Sayfa1").Range("A1").Value

Sheets("Sayfa2").Range("a1:a65536").Sort Sheets("Sayfa2").Range("a1")


End If
End Sub

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton2_Click()
Dim k As Range
Set k = Sheets("Sayfa2").Range("a:a").Find(TextBox5.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "[ " & Sheets("Sayfa1").Range("A1").Value _
    & " ] Sayfa2de kayıtlı.Kayıt yapılmadı..!!", vbCritical, "UYARI"
    Else
    Sheets("Sayfa2").Cells(65536, "a").End(xlUp)(2, 1) = TextBox5.Text
    Sheets("Sayfa2").Range("a1:a65536").Sort Sheets("Sayfa2").Range("a1")
End If
End Sub

 

[DeliBalta58]

Dosyanız ekte

 

[jambow]

Ilgilenenlerin hepsinden allah razı olsun