Program açılma sayısının tutan makro kodu ?

[cetorp2007]

Yaptığım makroda userform lar üzerinde çalışılıyor ana sayfa user formun altına bi textbox koysam burada bu programı en son kullanıldığı tarih veya kaç kez açılmış program bunun gibi yazan otomatik bişey yapılabilirmi bilgisi olan arkadaşlardan yardımlarınızı bekliyorum


teşekkürler....

 

[cetorp2007]

arkadaşlar böyle birşey yapmak mümkünmüdür? onu bilen varmı bekiii?

 

[cetorp2007]

uzman arkadaşlar bu konuya olumlu yada olumsuz bir cevap yazabilirlermi?

 

[cetorp2007]

yokmu abi böyle bişey web site lerinde oluyorda userformda niye olmuyor?

 

[Haluk]

Hücrelerden birine yazdırıp, oradan okutabilirsin veya registery'e yazdırıp oradan okutabilirsin.

 

[cetorp2007]

üstad nasıl yani

Hücrelerden birine yazdırıp, oradan okutabilirsin veya registery'e yazdırıp oradan okutabilirsin.

üstad bendeki dosya userformalr üzerinde çalışıyor hiç excel bişey almıyor artı userform ana sayfası yani açııştaki sayfanın altında programı açan kişi sayısını nasıl göstereceğim onu anlamadım

 

[Haluk]

http://www.excel.web.tr/showthread.php?t=12872

 

[cetorp2007]

Haluk üstad verdiğin adresteki demo versiyon kısıtlama için ama ben user formun altında bir sayı olsun istiyorum o sayıda program kullanıcılar tarafından her açıldığında +1 yapsın yani ben programı açtığımda userformun altında program kullanma sayısı 001 ben kapatıp sen açtığında program kullanma sayısı 002 yazsın proram ağ ortamıonda pc çalışacak

umarım anlatabilmişimdir.

 

[ECYavuz]

Sayın cetorp2007; Haluk üstadın yönlendirmesinin Userform için olanı;

'1 adet UserForm
'1 adet Label
'Aşağıdaki kodları UserForm'un kod bölümüne yapıştırınız.

Dim webtr

Private Sub UserForm_Activate()
webtr = GetSetting("sınır", "sınırla", "webtr", 0)
If webtr >= 5 Then 'burdaki 5 rakamı userformun kaç kere açılacağını belirtiyor.
SaveSetting "sınır", "sınırla", "webtr", 111111
MsgBox "Üzgünüm UserForm 5 kere açılmış." & Chr(10) _
& "Aslanım herşeyin fazlası HARAM", vbOKOnly, "Uyarı"
Unload Me
End
Else
webtr = webtr + 1
SaveSetting "sınır", "sınırla", "webtr", webtr
Label1.Caption = webtr & " oldu."
End If
End Sub

 

[ECYavuz]

Userform daki Label ile istediğinizi yapabileceğinizi düşünüyorum. Tabii ki sınırlama koymassanız... hergün save ettiği yerden başlar.

 

[cetorp2007]

ECYavuz üstad kod işi tamamdır tam anladığım gibi ve istediğim gibide

tam anlama olayında bişey var ben boş userformda denedim 5 deyince acmadı ama onu kaydetmeden kapattım aynı kodu başka userformda yaptım direk şey diyor 5 kere açıldı ama ben yeni yaptığım yerde ilk açışım acaba seve filan yazıyor o kodta (sınır, sınırl&#305 diye pc biyeremi kaydediyor üstad nasıl yapacağım bunu

 

[Haluk]

Merhaba;

Sayın ECYavuz, benim demek istediğim şekilde hazırlamış kodu, teşekkürler.

Ancak, sonradan verilen ayrıntıda dosyanın ağ üzerinde bir bilgisayarda olacağı söyleniyor. Bu durumda, Sayın ECYavuz tarafından verilen kod sözkonusu kayıtı her kullanıcının kendi bilgisayarındaki registery'e kaydediceği için belki de istenen bu olmayabilir diye düşünüyorum.

Bu nedenle, ekli alternatifi hazırladım. UserForm her açılıp, kapandığında sözkonusu text dosyasına ilgili kayıt yazılacak ve TextBox1' de görüntülenecektir.

Tabii, her iki dosya da ağ üzerindeki bilgisayarda aynı klasörde olacak.



.

 

[ECYavuz]

Haluk üstadım son derece haklısınız. Örneğinizi hemen memoriye kaydettim. Sağolun.

 

[cetorp2007]

ECYavuz ve Haluk üstadlar ellerinize sağlık yaaa ikiside işimi gördü ağ üzerindekinide hallettim yaa fevkaladenin fevkinde yani anlıcanız

tekrar çok teşekkürler,

 

[cetorp2007]

HALUK ÜSTAD VE ECYavuz üstad bi sorunum var yaaa userformumun kodlar aşşağıdaki gibi HALUK üstadın kodunu nasıl buraya yerleştiricem hata veriyor şimdide


Private Sub CommandButton16_Click()
ThisWorkbook.Close Savechanges:=False
Application.Visible = True
Application.Quit
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 10000
ProgressBar1 = i * 100 / 10000
Next
Unload Me
UserForm2.Show
End Sub

Private Sub ImgIcon_Click()

End Sub

Private Sub ProgressBar1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS)

End Sub



Private Sub UserForm_Click()

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

Private Sub UserForm_Activate()
On Error Resume Next
kelime = " &#304;&#350;LETMES&#304; KARACABEY "
ResumeSub:
If c = 2 Then c = 0
Start = Timer * 10
Do
DoEvents
finish = Timer * 10
deg = Format(finish - Start, "0")
If c < 1 Then
StatusBar1.Panels(1) = Mid(kelime, 40 - deg, deg)
StatusBar1.Panels(1).Alignment = sbrLeft
End If
Loop While finish - Start <= 40
c = c + 1
GoTo ResumeSub:
End Sub

 

[ECYavuz]

Haluk üstadın izinleriyle; Yanıtlamaya çalışayım...

1 nci kodu UserForma ekleyin....

Private Sub UserForm_Initialize()
Open ThisWorkbook.Path & Application.PathSeparator & "Log.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
Loop
Close #1
TextBox1 = InputData
End Sub

2. kodu mevcut kod'unuz yerine kopyalayın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Open ThisWorkbook.Path & Application.PathSeparator & "Log.txt" For Append As #1
Print #1, Format(Val(TextBox1) + 1, "000")
Close #1
End Sub

 

[cetorp2007]

&#252;stad tamam benim hatam yaa txt dosyas&#305; kay&#305;t edeken log.txt diye isim vermi&#351;im sadece log yazacakt&#305;m neyse bu sorunda halloldu

ellerinize sa&#287;l&#305;k ikinizinde

 

[cetorp2007]

(

ÜSTAD run-time 32 çözdük dedim başka biyerden batlak verdi ))))


şimdi userforma giriyorum diyorki 001 defa kullanıldı buraya kadar normal
ama userform 2 yada userform 3 gidim tyine ana menüye gelince sayı program ilk açıldı zannedim +1 atıyor diyorki 3 defa kullanıma girildi hehehe batlak burda işte naparız buna

senide yordum uğraştırıyorum kusura bakma yaaaa

 

[ECYavuz]

Haluk beyin yapt&#305;&#287;&#305; program Desktop ta bir text dosyas&#305; olu&#351;turuyor ve son kay&#305;t say&#305;s&#305;n&#305; orada tutuyor. Ben indirdim &#246;rnekteki giri&#351; say&#305;s&#305;n&#305; 30 lara kadar denedim.
&#214;zel mesajda da belirtti&#287;im gibi &#246;rnek bir dosya ekleyebilirsen, i&#351;in i&#231;inden &#231;&#305;kamasak bile uzman arkada&#351;lar&#305;m&#305;z mutlaka bir &#231;&#246;z&#252;m bulurlar san&#305;yorum.

 

[Haluk]

Batlamaya kar&#351;&#305; &#246;nlem i&#231;in;

O kodlar&#305; UserForm modul&#252;nden silip, Autpen ve Auto_Close prosed&#252;rleri i&#231;ine yaz&#305;n.