Userform dan gizli sayfalara geçiş

[pasha22]

Merhabalar;
Userform üzerindeki butonlar ile sayfalara aşağıdaki kod ile ulaşıyorum. Ancak aşağıdaki sayfa isimlerinin görünmemesi için sayfaları gizlediğimde, userformdaki butonlar ile açılmıyor, hata veriyor.

Sayfaların tamamını gizleyip, sadece userformddaki butonlar ile nasıl ulaşabilirim acaba?

Saygılarımla.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
End Sub

Private Sub CommandButton2_Click()
Sheets("Sayfa2").Select
End Sub

Private Sub CommandButton3_Click()
Sheets("Sayfa3").Select
End Sub

 

[muygun]

Merhaba;
Ekteki gibi olabilir.
İnceleyin.
İyi çalışmalar.

 

[Orion1]

Sayfayı neden seçiyorsunuz?
Eğer veri girmek yada almak için ise sayfa seçmeye gerek yok.Sayfa seçmedende bu işlemler yapılabilir.

 

[matrix81]

Sayfayı neden seçiyorsunuz?
Eğer veri girmek yada almak için ise sayfa seçmeye gerek yok.Sayfa seçmedende bu işlemler yapılabilir.

Sayfa seçmeden nasıl veri alınıp gönderilir örnek verebilir misiniz.

option button
textbox
combobox

kullanıyorum

 

[Orion1]

Sayfa seçmeden nasıl veri alınıp gönderilir örnek verebilir misiniz.

option button
textbox
combobox

kullanıyorum

Sayfayı seçmeden gizli sayfaya veri girme.
Mesela sayfa2 gizli olsun.

Sheets("Sayfa2").Range("A1").Value = "TEST"

Siz gizli sayfaya nasıl veri girilir demişsiniz,bende örneği gösterdim.Artık textboxtan yada diğer nesnelerle nasıl girileceği size kalmış.

 

[trbyte]

Selamünaleykum arkadaslar benimde bu konuda bi sorunum var sayfadaki herhangi bir veriyi silmek istiyorum bunun icin sayfadaki verileri listboxa aliyorum listboxta sectigim veriyi commandbutona basip sil diyorum ancak sayfam gizli olunca kod hata veriyor yardimciolurmusunuz tesekkurler
kod su sekilde

Private Sub stk_hareket_giris_Click()
Dim i As Integer
For i = 0 To stk_hareket_giris.ListCount - 1
If stk_hareket_giris.Selected(i) = True Then
Sheets("3").seleckt
Sheets("3").Range("A" & stk_hareket_giris.ListIndex + 2).Select
End If
Next
End Sub

Private Sub CommandButton3_Click()
Selection.EntireRow.Delete
End Sub