vba da kodları makro ile silmek yada değiştirmek

[Emsdmr]

USERFORM1 Commandbutton1

If TextBox1.Value & TextBox2.Value = Worksheets("Sayfa1").Range("AA1").Value & Worksheets("Sayfa1").Range("AB1").Value Then
A = TextBox1.Value
MsgBox A & "  TAM YETKİLİ GİRİŞİNİZ BAŞARIYLA YAPILDI " & Chr(13) & _
 Chr(13) & _
"Şimdi Kullanıcı Adı ve Parolanızı Kendinize Göre Yapılandırmalısınız." & Chr(13) & _
Chr(13) & _
    B, vbOKOnly, "DEMİR"
TextBox1.Value = ""
TextBox2.Value = ""
Unload Me
UserForm4.Show
Exit Sub: End If  
end sub

Yukarıdaki kodlar bir kere kullanıldıktan sonra her zaman aşağıdaki şekilde çalışsın istiyorum.
Mümkünmü acaba

If TextBox1.Value & TextBox2.Value = Worksheets("Sayfa1").Range[B]("A27").[/B]Value & Worksheets("Sayfa1").Range[B]("B27").[/B]Value Then
A = TextBox1.Value
MsgBox A & "  TAM YETKİLİ GİRİŞİNİZ BAŞARIYLA YAPILDI " & Chr(13) & _
B, vbOKOnly, "DEMİR"
TextBox1.Value = ""
TextBox2.Value = ""
Unload Me
[B]UserForm2.Show[/B]
Exit Sub: End If  
End sub

 

[Skorpiyon]

Sayın Emsdmr,

Aşağıdaki şekilde dener misiniz.

If Range(“AC1”) = 1 then goto 10
If TextBox1.Value & TextBox2.Value = Worksheets("Sayfa1").Range("AA1").Value & Worksheets("Sayfa1").Range("AB1").Value Then
A = TextBox1.Value
MsgBox A & " TAM YETKİLİ GİRİŞİNİZ BAŞARIYLA YAPILDI " & Chr(13) & _
Chr(13) & _
"Şimdi Kullanıcı Adı ve Parolanızı Kendinize Göre Yapılandırmalısınız." & Chr(13) & _
Chr(13) & _
B, vbOKOnly, "DEMİR"
Range(“AC”) = 1
TextBox1.Value = ""
TextBox2.Value = ""
Unload Me
UserForm4.Show
Exit Sub: End If
End Sub

Goto 20
10
If TextBox1.Value & TextBox2.Value = Worksheets("Sayfa1").Range("A27").Value & Worksheets("Sayfa1").Range("B27").Value Then
A = TextBox1.Value
MsgBox A & " TAM YETKİLİ GİRİŞİNİZ BAŞARIYLA YAPILDI " & Chr(13) & _
B, vbOKOnly, "DEMİR"
TextBox1.Value = ""
TextBox2.Value = ""
Unload Me
UserForm2.Show
Exit Sub: End If
End Sub

20

 

[Emsdmr]

sayın şaban sertkaya

label not defined şeklinde bir hata aldım
ve hata olarak ilk satırdaki "then goto 10" işaret ediliyor

 

[Skorpiyon]

Kodlarınızda Goto 20 yazan yerin altında 10 var.
Oraya 10 yazdınız mı ?

 

[Skorpiyon]

Kodlarda Goto20 yazan yerin altında 10 var.
10 rakamını yazdınız mı ?


Netteki bir anormallikten mesaj çift oldu :S

 

[Emsdmr]

şöyle söyleyim
buradaki yazmış olduğunuz kodları olduğu gibi kopyalayıp
end sub dan sonraki 20 dahil
butona atadım

 

[Skorpiyon]

Sayın Emsdmr,
Kusura bakmayın gözümden kaçmış.

Goto 20 üzerindeki End Sub ve 20 rakamının üzerindeki End Sub satırının silinmesi gerekiyordu.

 

[Emsdmr]

önemi yok elbette ama ikinci bir hata alıyorum düzeltilen kodlardan sonra

If Range(“AC1”) = 1 Then GoTo 10 satırında
method range of object global failed şeklinde

 

[Skorpiyon]

1 dk. örnek bir uygulama yapayım.

 

[Skorpiyon]

Tırnak işaretlerinden kaynaklanan bir problemmiş. Ekteki dosyayı inceleyiniz.
Kodlarınızı düzeltirsiniz.

 

[Emsdmr]

Sayın Şaban SERTKAYA
problemin çözümüne kadar olan bütün, çabanıza Çok teşekkür ederim

 

[Skorpiyon]

Rica ederim. İşinizi görmüştür umarım ?

 

[Emsdmr]

evet işim görüldü ilginize tekrar teşekkür ederim