Bir yordam içinde birkaç sayfayı sırayla aktif hale getirmek

[oguzgok]

Öncelikle herkese slm..
Üstadlara küçük bir sorum olcak..
Bir comandbutton1 yordamına sheet1 i aktif hale getirerek kayıt yapıyorum.. Daha sonra aynı yordam içinde sheet2 yi aktif hale getirip kayıt yapmak istiyorum. ve daha bir kaç sayfada aynı işlem gerçekleştirmek istiyorum. Ancak birinci sayfa aktfleştirmeyi kabul ediyor ama ikinci sayfa aktifleştirme satırnda hata kodu veriyor. Bu konuda yardımcı olacak arkadasa şimdiden tsk sunuyorum..

 

[Recep İpek]

Kodlarınızı ekleyebilirmisiniz?

 

[oguzgok]

Öncelikle teşekkürler Recep Bey..
Kodlar:

Private Sub CommandButton8_Click()
Sheets("İLAÇ TESLİM DEFTERİ").Select
For Each ayni In Range("A2:A450")
If ayni.Value = CStr(ComboBox1.Value) Then
DUR = MsgBox("MÜKERRER KAYIT YAPIYORSUNUZ!", vbYes, "OĞUZ GÖK")
ComboBox1.Value = ""
Exit Sub
End If
Next
Sheets("İLAÇ TESLİM DEFTERİ").Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = ComboBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox16.Value
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
Worksheets("İLAÇ LİSTESİ1").Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = ComboBox2.Value
ActiveCell.Offset(1, 0).Value = ComboBox3.Value
End Sub

 

[Recep İpek]

Worksheets("İLAÇ LİSTESİ1").Range("A1").Select

yerine

Worksheets("İLAÇ LİSTESİ1").Activate
Range("a1").select

olarak deneyebilirmisiniz?

 

[oguzgok]

Çok tşk ederim Recep Bey..
İyi ki varsınız.. Kolay gelsin..

 

[Recep İpek]

Sizede....