Userform1 de başlık

[Kemal Demir]

Hepinize Kolay Gelsin

Arkadaslar "Userform1" adını değiştiremiyorum nasıl değiştirileceği hakkında bilgi verirmisiniz..
SaygılaR

 

[idogus]

UserForm1.Caption = "Başlık buraya yazılacak"

 

[ALPEN]

eğer ismini değiştimek istiyorsanız resimdeki "name" özelliğini,
Başlığını değiştirmek istiyorsanız, yine resimdeki "caption" özelliğini değiştiriniz.

 

[Kemal Demir]

Private Sub UserForm_Click()
End Sub
Private Sub CommandButton1_Click()
Pivot_Table
End Sub
Sub Pivot_Table()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'KULLANILACAK DATA'!R1C1:R11256C13").CreatePivotTable TableDestination:="", _
TableName:="PivotTable1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
End Sub


elimdeki kodlar bunlar tam anlayamadım htm veya html vb. web sayfalarında sayfa başlıkları bunun altına yazılıytor ama tam anlayamadım yardımcı olurmusunuz(Title) gibi mı farklı mı?

 

[Kemal Demir]

çok teşekkür ederim ..

AlPen.
ve sizede teşekkur ederim
idogus
SaygıLaR

 

[Kemal Demir]

userform1 de tıkandım

Selam Rahatsızlığımdan dolayı uzgunum ..
Sub auto_open()
MsgBox "İstediğiniz Takdirde Pivot Almak İçin Devam Ediniz"
UserForm1.Show
End Sub
************buraya kadar yapabildim**********
bundan sanra sayet pivot almak istemiyorsa user form uzerine buton ekleyebilirmiyiz eklerserk yardımcı olurmusunuz

 

[idogus]

Sub auto_open()
acilismesaji= MsgBox("İstediğiniz Takdirde Pivot Almak İçin Devam Ediniz",vbQuestion + vbYesNo,"Ã?zet Tablo")
If acilismesaji = vbYes Then UserForm1.Show
End Sub

 

[Kemal Demir]

Text formatında tekrar yazarmısınız "()" işaretler sorun yapıyor yada sole soleyım yazı karakterındemı kaynaklanıyor acaba.
Text olarak atarsanız sevinirim
Saygılar.

 

[danersin]

sub auto_open()
acilismesaji=MsgBox("mesajınızı yazın", vbYesNo, "başlık yazın")
if acilismesaji=vbyes then userform1.show
end sub