Ticket Programi

[trigonometri]

Selam UStadlar ilk VBA girisimim olacakti , firsat ayiramiyorum ekdeki calsimayi yaptim biraz ayrintili da kodlari yazmaya baslicaktim biraz uzun surecek gibi benim icin / uzman arakdasalrdan yardim talep etsem bu programi kisa surede yetistirebilirmiyiz,

yukarida mavi ikon koydugum yerde firma amblemi ile baslatacagimda on yuzu, ALT + 11 ile yapmis oldugum giris ana paneli gorebilirsiniz, yardim edebilirmisiniz , simdiden tesekkurler,

 

[trigonometri]

Tıcket program

Selam Arkadaslar 2 gundur ugrasiyorum acemiliktenmidir nedir bir dunya kod yazdim anca kayitlari satirlara yazdirabildim, buradaki arkadaslar bir cok kisinin program cozumlerini yapiyor birde begenilmiyor , butun yardimlari olan sitedeki gorevli arkadaslari tebrik ederim ve tesekkur ederim. programi bitirimde siteye atarim ,benden siteye ve ziyaretcilere hediye olsun, bitince yapamadigim ayarlayamadigim bolumler icin yardim icinde dosyayi atarim , gorusmek uzere

 

[trigonometri]

Tıcket

Selam Ustad lar,
Programi tamamlayamadim bir iki seyde takildim yardiminizi istiyorum,

Ekran sol kosede Ornek yazan yere tiklandiginda ana menu aciliyor,

ana menude bul bolumu(mercek isaretli) ve en alttaki onay isaretli kaydetme bolumu calisiyor. istedigim
1. (Clear) yazan dugmeye ekranda yazan bilgiyi kaydetmeden silmesi herhangi bir yere kaydetmemesi veya cagrilmis bilgileri kaydetmeden degistirmeden sadece ekran bilgi giris ekraninin temizlenmesi,

2. (yukari asagi oklar), isme gore aratilan bir kaydin ekrana geldiginde ayni isimde bircok kayit olabileceginden bir sonraki kayitlara bakmak icin asagi yukari hareketlerle diger bilileri kontrol etme

3. (Change) isme gore cagirdigimiz ekrandaki bilgi uzerinde yapilan degisikligi
kaydedip mevcut bilgiyi duzeltmesi, yeni bir kayit acmamasi

4. (Delete) cagirdigimiz bilgiyi silmesi (eminmisiniz diye 1 kere sormasida gerek)

yardim ederseniz sevinirim , simdiden tesekkurler.

 

[trigonometri]

hatta kodlarin tamami yazilmasi gerekiyorsa baslama kisimlarinida yazsaniz ben tamamlamaya calsiirim,
ornegin

Private Sub CommandButton1_Click()
ass = [A65536].End(3).Row + 1
...
Cells(ass, 1).Value = ass - 1
...
Cells(ass, 1).Value = TextBox1.Text
...

TextBox1.Text = ""
..
End Sub

gibi,

yardimlarinizi bekliyorum tesekkurler,

 

[Emir Hüseyin Çoban]

Selam Ustad lar,
Programi tamamlayamadim bir iki seyde takildim yardiminizi istiyorum,

Ekran sol kosede Ornek yazan yere tiklandiginda ana menu aciliyor,
.

. . .

Merhaba,
eklediğiniz örnek dosya formatı .xlsx dir. Yani içerisinde makro kodlarını bulundurmaz. Mesajınızda bahsettiğiniz hiç birşey dosyanızda yok. Bu yüzden yanıt alamıyor olabilirsiniz.
Bilginize.

. . .

 

[trigonometri]

. . .

Merhaba,
eklediğiniz örnek dosya formatı .xls dir. Yani içerisinde makro kodlarını bulundurmaz. Mesajınızda bahsettiğiniz hiç birşey dosyanızda yok. Bu yüzden yanıt alamıyor olabilirsiniz.
Bilginize.

. . .

ozur dilerim ilk calismam , bilmedigim icinde boyle bir aksilik oldu sizin sitediginiz , ekdeki dosya formatimidir,

 

[trigonometri]

sanirim bir yardim olmayacak, veya sadece bende calsiyor macro lar?

 

[usta07]

Selam Ustad lar,
Programi tamamlayamadim bir iki seyde takildim yardiminizi istiyorum,

Ekran sol kosede Ornek yazan yere tiklandiginda ana menu aciliyor,

ana menude bul bolumu(mercek isaretli) ve en alttaki onay isaretli kaydetme bolumu calisiyor. istedigim
1. (Clear) yazan dugmeye ekranda yazan bilgiyi kaydetmeden silmesi herhangi bir yere kaydetmemesi veya cagrilmis bilgileri kaydetmeden degistirmeden sadece ekran bilgi giris ekraninin temizlenmesi,

2. (yukari asagi oklar), isme gore aratilan bir kaydin ekrana geldiginde ayni isimde bircok kayit olabileceginden bir sonraki kayitlara bakmak icin asagi yukari hareketlerle diger bilileri kontrol etme

3. (Change) isme gore cagirdigimiz ekrandaki bilgi uzerinde yapilan degisikligi
kaydedip mevcut bilgiyi duzeltmesi, yeni bir kayit acmamasi

4. (Delete) cagirdigimiz bilgiyi silmesi (eminmisiniz diye 1 kere sormasida gerek)

yardim ederseniz sevinirim , simdiden tesekkurler.

Yukarıda bahsettiğiniz konuyu içeren çalışma ile örnek olarak gönderdiğiniz dosyanın hiç alakası yok. Hüseyin Bey de anlatmak istemiş ancak anlamamışsınız. Sizden ricam gönderdiğiniz dosyayı indirip bir kontrol etmeniz. gönderdiğiniz tüm dosyaların içinde bahsettiğiniz ne form ne makro hiç bir kod yok. bu sebepledir ki yardım alamıyorsunuz diye düşünüyorum...

 

[trigonometri]

evet usta bende bugun bir zaman bulup bakmaya calistim , benim makinadan baska yerde acmiyor makrolari cozmeye calistim , personal.xlsb gibi bircok vba project olusmus tabi dedim ya acemilik, benim calismamada bir turlu userform u ve macrolari atmayida beceremedim, , benim macro vba project. ticket.xlsx e attigim zaman personal daki userform u kaydettigim tekrar girdigim zaman yok oluyor, insaallah pazartesi yeni bir dosya yapip formu yeniden yapmiyi dusunuyorum bakalim veya bir yolu varsa onun detayli anlatilmis bildiginiz bir link atarsaniz oradan da inceleyebilirim. tesekkurler

 

[usta07]

Tam olarak ne istediğinizi anlamamakla beraber, yıllar önce kullandığımız küçük bir biletleme dosyasını ekliyorum umarım yapmak istediğiniz konuda işinize yarar.
Selamlar iyi çalışmalar ve iyi bayramlar...

 

[trigonometri]

usta cok tesekkur ederim , dosyayi duzelttim size zahmet bir kontrol edermisiniz, duzeltilmis dosya ektedir

 

[usta07]

Dosyanız ekte, TextBox ve hücre formatlarını istediğiniz gibi ayarlayın.
İsimden ara, Kaydet, Değiştir, Temizle, Sil, kapat kodları çalışır hale getirildi.
Kolay Gelsin iyi Bayramlar...

 

[trigonometri]

Dosyanız ekte, TextBox ve hücre formatlarını istediğiniz gibi ayarlayın.
İsimden ara, Kaydet, Değiştir, Temizle, Sil, kapat kodları çalışır hale getirildi.
Kolay Gelsin iyi Bayramlar...

Cok tesekkur ederim , sizin araciliginizla, sizinde ve tum form yonetici ve uyelerininde bayramini kutlarim .

 

[trigonometri]

userform u sekillendiriken bazi orneklere bakiyorumda mesela yukari asagi oku yaparken

Yukari ok


On Error Resume Next
If ActiveCell.Offset(-1, 0).Value <> "" Then
ActiveCell.Offset(-1, 0).Select
Call VeriAl
Else
MsgBox "&Yacute;lk Kay&yacute;t"
Exit Sub
End If
End Sub

Asagi ok


On Error Resume Next
If ActiveCell.Offset(1, 0).Value <> "" Then
ActiveCell.Offset(1, 0).Select
Call VeriAl
Else
MsgBox "Son Kay&yacute;t"
Exit Sub
End If
End Sub

gibi orneklerle karsilasiyorum simdi bende verial diyince hata veriyor ingilizce olarak
VeriAl komutu nedir bir turlu olmadi bildigim komutlar,

o bolumu cikarincada formda yukari asagi ok hareket ediyor fakat bolumdeki bilgileri userform a cagirmiyor,

birde soyle birsey yapabilirmiyiz, bende yuzlerce kayit olacagi icin her kisiyede birkactane bilet olacagi icin tek tek satir satir forma cagirmaktansa yukari asagi ok yapinca mesela ahmet e gore arattiriyor isem oklar sadece ahmet olanlari tarasin tek tek asagi yukari gitmesi zor olur,

onerilerinizi ve yardimlariniz bekliyorum teskkur ederim,

 

[trigonometri]

Biraz calisma deneme yanilma ile sonunda oklarin hareketlerinde bolumlerdeki verileri almayi basardim yalniz istegim , oklari hareket ettirirken arama hanesi de olabilir yani ahmet diye arattigim cagirdimda eger istedigim o bilet degilse asagi ok dedigimde ahmt adina kayitli diger bileti cagirmasi yani bir alt satira atlamamasi, olabilirmi?

 

[trigonometri]

Dosya son hali ektedir,
- bir kayit cagirdikdan sonra yukari asagi ok ile hareket ederken adi hanesi haliyor sonraki kaydin adi hanesini getirmiyor ilk cagirdigin kaydin adi yukari asagi hareket ettigin satirlardaki bilgieler karisimis oluyror , duzeltebilirmiyiz,

- 2 mumkun ise yukari asagi ok sadece cagirdigimiz isimde baska kayitlar icin olsun,
yani ahmet ismini cagirdik ise asagi ok dedigimizde ahmet adina kayitli baska bir kayda gitsin bir alttaki satira degil, tesekkurler

 

[trigonometri]

Ustadlar az kaldi sagolun varolun yaptiniz ttiniz az kaldi isleme koymam lazim su isi, bir oneride olabilir nasil yapabilirim onerilerinizi ve yardimlarinizi bekliyorum