- Katılım
- 8 Mart 2005
- Mesajlar
- 3,288
- Excel Vers. ve Dili
-
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba
userform'u acılış sayfasından çalıştırıyorum.
Benim istediğim butonu çalıştırınca URETIM_DATA sayfasının gözükmemesi
userform'un AÇILIS sayfasında kalması.
URETIM_DATA sayfasını gizlediğimde de en son sayfaya gidiyor.
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("URETIM_DATA").Activate
Range("C1").Activate
aygirisi = Label1.Caption
ANAMASRAF = ComboBox1
ALTMASRAF = ComboBox2
Range("C1").Activate
Selection.AutoFilter Field:=7, Criteria1:=aygirisi
Selection.AutoFilter Field:=6, Criteria1:=ALTMASRAF
Selection.AutoFilter Field:=5, Criteria1:=ANAMASRAF
Range("I1").Activate
Selection.End(xlDown).Activate
SATIRNU = ActiveCell.Row
End sub
Saygılarımla
userform'u acılış sayfasından çalıştırıyorum.
Benim istediğim butonu çalıştırınca URETIM_DATA sayfasının gözükmemesi
userform'un AÇILIS sayfasında kalması.
URETIM_DATA sayfasını gizlediğimde de en son sayfaya gidiyor.
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("URETIM_DATA").Activate
Range("C1").Activate
aygirisi = Label1.Caption
ANAMASRAF = ComboBox1
ALTMASRAF = ComboBox2
Range("C1").Activate
Selection.AutoFilter Field:=7, Criteria1:=aygirisi
Selection.AutoFilter Field:=6, Criteria1:=ALTMASRAF
Selection.AutoFilter Field:=5, Criteria1:=ANAMASRAF
Range("I1").Activate
Selection.End(xlDown).Activate
SATIRNU = ActiveCell.Row
End sub
Saygılarımla