Makro sorunu

[ozgurmutlu]

merhaba arkadaşlar, bir user form hazirladim ancak düğmeye bastığımda
excel dosyamdaki sayfa1 sheet'i açmasını istiyorum. Sürekli debug problemi
veriyor. 3. satırda Show yerine select yazarsam userform penceresi kapanıyor ancak sayfa1 gene açılmıyor.
Anlayan arkadaşlar yardım edebilirse çok sevinirim.


Private Sub CommandButton2_Click()
izintalep.Hide
Sheets(Sayfa1).Show
End Sub

 

[veyselemre]

Sheets("Sayfa1").Select

 

[Recep İpek]

Kodlarınızı aşağıdaki şekilde değiştiriniz.

Private Sub CommandButton2_Click()
izintalep.Hide
Sheets("Sayfa1").Select
End Sub

 

[ozgurmutlu]

Select yazıyorum. Bu durumda program penceresini kapatıyor ama excel penceresini açamadığı için içindeki sayfa1'i hiç açamıyor. Yani butona bastığımda direkt masaüstümü görüyorum.

 

[Ali]

Userformu tekrar görünür yapmak için izintalep.Show eklemek daha iyi olacak sanırım.

Private Sub CommandButton2_Click()
izintalep.Hide
Sheets("Sayfa1").Select
izintalep.Show
End Sub

 

[ozgurmutlu]

Sanırım benim sorunum bu satırda
Sheets("Sayfa1").Select

çünkü sayfa1 hiç açılmadan tekrar program açılıyor. Benim istediğim programdan excel formatına dönüp sayfa1'in açılması.
select yerine show yaziyorum ama bu sefer de sorun veriyor.

 

[Kemal Demir]

Private Sub CommandButton2_Click()
unload me
Sheets("Sayfa1").Select
izintalep.Show

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton2_Click()
application.visible=true
izintalep.Hide
Sheets("Sayfa1").select
End Sub

 

[ozgurmutlu]

Teşekkür ederim bu sefer istediğim gibi excel açıldı ancak
hem sayfa1 dışında başka bir sheet açtı hem de error verdi.

Private Sub CommandButton2_Click()
unload me
Sheets("Sayfa1").Select
izintalep.Show

 

[ozgurmutlu]

Teşekkür ederim arkadaşlar... İstediğim tam olarak buydu

 

[ozgurmutlu]

Merhabalar, bir sorum daha olacak. :/
Bir user form oluşturdum. Burada da bir image penceresi oluşturdum.
Listede çalışan isimleri seçildikçe, serverdaki bir dosyadan çalışanlara ait resimlerin bu pencereye gelmesini istiyorum.
Ben şöyle bir şey yazdım ama bir türlü beceremedim.

Private Sub Image1_Calculate()
Sheets("Personel").Select
Columns("b:b").Select
Insert ("C:\Documents and Settings\Administrator\Desktop\oz.jpg")
ActiveSheet.Pictures.Select
End Sub

 

[Levent Menteşoğlu]

Resimlerin bir listboxtan seçildiğini düşünürsek aşağıdaki kodu listboxa kopyalayın. Resimler seçilen kişinin adını taşımalıdır.

private sub listbox1_click()
image1.picture=loadpicture(("C:\Documents and Settings\Administrator\Desktop\" & listbox1 & ".jpg")
end sub

 

[ozgurmutlu]

Evet listbox1 den isim seçiliyor ancak verdiğiniz kodda compile error hatası veriyor. Ayrıca listbox v1 de şu kodlar var. İsme tıkladığımda listenin sol tarafında personel bilgileri görünüyor ve sorunsuz çalışıyor. Benim isteğim listenin sağına koyduğum image window'a da resimlerini koymak

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Sheets("Personel").Select
Columns("b:b").Select
TextBox1.Value = ListBox1.Value
Selection.Find(TextBox1.Value, ActiveCell).Activate
TextBox2.Value = ActiveCell.Offset(0, 1)
TextBox3.Value = ActiveCell.Offset(0, 10)
Toplamizin = ActiveCell.Offset(0, 12)
End Sub

 

[ozgurmutlu]

Listboxtan seçtiğim resmi image window da görüntülüyorum fakat resmin oyutunun yeniden ayarlanarak bu pencereye tam oturmasını istiyorum.
bununla ilgili kodu yazabilecek arkadaş var mı?

 

[Levent Menteşoğlu]

aşağıdaki kodu userform_initialize olayına yazın veya image nesnesinin properties penceresinden direk bu ayarı yapın.

Image1.PictureSizeMode = fmPictureSizeModeStretch

 

[ozgurmutlu]

Sağolun çok yararlı oldunuz. Birşeyi merak ediyorum.
User forma ListBox'taki listedeki ismi tıkladığımda, Excell de personel isimli sheet de A sütunundaki personel listesinde ismi bulup E sütunundaki TC kimlik nosunu user formda açtığım textboxta gstermesini istiyorum. Bunun için hangi formülü kullanmalıyım?

 

[ozgurmutlu]

Herkes çok mu meşgul? Aslında basit bir şey ama makrolarla ilgili fazla bilgim yok. Yukarıda da belirttiğim gibi tek isteğim ilgili satır ve sütunun seçilip o hücredeki bilginin textbox a yazılması.