Kaydetme Sorunu

[ShodoW]

Merhaba arkadaslar,

Ekteki dosyada yenı tasarlamaya basladım kasa hareketlerının takıp edılebılcegı bır program bulunmakta, Formullerı yazdım ama bır sorun var bır turlu calıstıramadım heseyı kontrol ettım ama bır tulu bulamadım ıncelıyıp yanlız oldugum noktada duzeltmenızı rıca edebılırmıyım.

Not:Kaydetme butonunu tamamlıyamadıgım ıcın dıgerlerını daha gecemedım.

Sımdıden ılgınız ıcın tesekkur ederım.

 

[ShodoW]

Tekrar

Konu hakkında yardımlarınızı hala rıca edıyorum arkadaslar ılgınız ıcın tesekkurler.

 

[fedeal]

sizin kodlarınızı düzelttim herhangibi değişiklik yapmadım kontrol edin olmuşmu

Private Sub CommandButton1_Click()
Dim sat, Son, deg, s, d As Integer
Dim cvp As String
'Mükerrer Kontrol
Sheets("kasa").Select
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If [COLOR="Red"]Cells(sat, "b") = DTPicker1.Value And[/COLOR] Cells(sat, "d") = ComboBox1 Then
cvp = MsgBox("Aynı Günde Kayıt Var Devam Etmek İstermisiniz", vbYesNo)
[COLOR="red"]If cvp = vbYes Then GoTo atla[/COLOR]
ComboBox1 = Empty
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
Exit Sub: End If: Next
'Veri Giriş
atla:
If ComboBox1 = "" Then
MsgBox "İşlem Cinsi Girmediniz", vbInformation
Exit Sub
End If
If TextBox1 = "" Then
MsgBox "Açıklama Girmediniz", vbInformation
Exit Sub
End If
Son = Cells(65536, "b").End(xlUp).Row + 1
If Son < 11 Then Son = 11
[COLOR="red"]Cells(Son, "b").Value = DateValue(DTPicker1.Value)[/COLOR]
Cells(Son, "d").Value = ComboBox1.Text
Cells(Son, "f").Value = TextBox1.Text
Cells(Son, "h").Value = TextBox2.Text
Cells(Son, "k").Value = TextBox3.Text
Cells(Son, "n").Value = TextBox4.Text
Cells(Son, "o").Value = TextBox5.Text
Cells(Son, "l").Value = TextBox6.Text
Cells(Son, "ı").Value = TextBox7.Text
ComboBox1 = Empty
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
'Sıra No Verme
[COLOR="red"]For d = 11 To Son
Cells(d, 1).Value = d - 10
Next[/COLOR]
End Sub

 

[ShodoW]

Tesekkur ederım

Elınıze saglık denedım calısıyor programımın dıger sheetlerınede uygulıyacagım yardımlarınız ıcın tekrartesekkur ederım.

 

[fedeal]

Elınıze saglık denedım calısıyor programımın dıger sheetlerınede uygulıyacagım yardımlarınız ıcın tekrartesekkur ederım.

ricaederim takldıgınız yer olursa vaktim oldukca yardım ederim.iyi çalışmalar.

 

[ShodoW]

Merhabalar,

Programı yaparken hep bırseyler karsıma cıkıyor ve guncellestırmelere devam edıyorum tabı takıldıgmı cok sey oluyor cunku bu ıste yenıyım fedeal arkadasımızın sabırlı ve yardımsal tavırları sayesınde baya yol kadettım tabı yenı sorularla tekrar basınızı arıtıcam sanırım ))

Ekteki dosyamda kasa hareketlerı ikiye bölünmüş durumda
(38.satırdan sonra).

Benim yapmak istediğim şey kasadaki acık gıderlerı tıka bastıgımda 38. satır ve sonrasına eklesın eğer tık secılı degılse yukardakı bos satıra eklesın bu arada eklerken dıyelım 36 satıra ıslem gırıyor cızgı oldugu ıcın kendısı oraya geldıgınde bır satır eklesın ve aynı ıslemı 51. satıra geldıgınde yapsın bunu gerceklestırebılırmıyız.

 

[fedeal]

dosyayı inceleyin umarım doğru anlamışımdır.

 

[ShodoW]

Tesekkurler

Tesekkur ederım tam ıstedıgım gıbı yıne döktürmüssünüz emeyinize saglık.

 

[fedeal]

Tesekkur ederım tam ıstedıgım gıbı yıne döktürmüssünüz emeyinize saglık.

ricaederim, iyi çalışmalar.

 

[ShodoW]

Merhaba

Merhabalar;

Sımdıkı sorunum ıse verılerı kaydettıkten sonra yandakı lıstboxta goruntulemek ıstedıgımı sectıgımde ekrana ılgılı yerlere gelmesı ve degısıklık yapmam gerekıcekse degısıklk yapmak ben macroları yazdım ısledıkce lıstboxta gorunuyor secebılıyorsunuz ve bılgılerı getırıyor yanlız textboxlarda yanlıs yerlere getırıyor verılerı bırtulu ayarlıyamadım macroda nerde yanlıs yapıyorum yardımcı olabılırmısınız bırde degısıklık yapmayıda cozemedım ekrana gelınce degısıklık yapıp tusa basmak ıstıyorum onun ıle ılgılı olarakta yardımcı olabılırmısınız dosya ektedır yardımlarınız ıcın sımdıden tesekkur edıyorum

 

[fedeal]

Merhaba,

Private Sub CommandButton3_Click()
'değiştir butonu için
If ListBox1.Column(0) = "" Then Exit Sub
If ComboBox1.Text = "" Then Exit Sub
With Sheets("kasa")
Set ara = .Range("a:a").Find(ListBox1.Column(0), LookAt:=xlWhole)
If Not ara Is Nothing Then
.Range("d" & ara.Row).Value = ComboBox1.Text
.Range("f" & ara.Row).Value = TextBox1.Text
.Range("h" & ara.Row).Value = TextBox2.Text
.Range("i" & ara.Row).Value = TextBox7.Text
.Range("k" & ara.Row).Value = TextBox3.Text
.Range("l" & ara.Row).Value = TextBox6.Text
.Range("n" & ara.Row).Value = TextBox4.Text
.Range("o" & ara.Row).Value = TextBox5.Text
End If
End With
End Sub

Private Sub ListBox1_Click()
'textlere listboxtan veri al
With ListBox1
ComboBox1 = .Column(2)
TextBox1 = .Column(3)
TextBox2 = .Column(4)
TextBox3 = .Column(6)
TextBox4 = .Column(8)
TextBox5 = .Column(9)
TextBox6 = .Column(7)
TextBox7 = .Column(5)
End With
End Sub

kodları değiştirip(ilave edip) deneyin istediginiz gibimi?

 

[ShodoW]

Kasa Programı

Değerlı Arkadaslarım;

Fedeal Arkadasımızın da desteklerıyle programımı tamamlamıs bulunmaktayım
program kasa yada banka hareketlerının takıp edılebıcegı bır program olup
verı bulunde kullanım seklıne gore

Ornegın;
Banka gırıslerıyse

xxxbankası TL HESAP GIRILILIP ISLEM CINSINDE secılır ve hareketler buna gore ıslenırse banka durumları takıp edılır

Kasa ıcın ıse

Merkez kasa ıst kasa ızm kasa gıbı bolumler kullanılarak takıp yapılabılır
yada ıslem cınsıne fırmların adları nakıt cekılen nakıt yatan banka dovuz bozumu gıderler vsss dıye acılırsa gun ıcınde bu yerlere ne kadar para verılıp verılmedıgı takıp edılebılır farklı kaydet ıle gun gun tutabılırsınız

 

[ShodoW]

Merhaba

Merhaba Arkadaslar,

Çeklerı takıp etmek ıcın yenı bı program uzerınde calısıyorum ama sogle bı sorunum var ılk basta hersey cok ıyı ıdı butun formuller calısıyordu
sonra ne oldu anlamadım kaydetmıor bıle bı formullere bakabılırmısınız nerde hata olusmus sabahtan berı ıncelıyorum bır turlu bulamadım tesekkurler.

Amacım ceklerı kaydetmek bulmak sılmek ve duzeltmek sımdıden tesekkur ederım.

 

[ShodoW]

Yardım.

Ilgılenebılıcek bır arkadas varmı kodları yazdım ama sorunu cozemıyorum tesekkurler.

 

[ShodoW]

slm

Sayın Hocalarım,Arkadaslarım,

Yardımcı olabılırmısınız formullerı tek tek bır cok kes kontrol ettım ama neden kıtlendıgını bır turlu cozemıyorum yardımlarınızı beklıyorum.

 

[fedeal]

sorun kodlarda değil PORTFÖY sayfası a65534 hücresine yazdıgınız x işaretinde(niye yazdıgınızı kodlarabakarak anlayamadım)
Aslında anlamadığım bir kaç kod daha var örneğin:

Son = Cells(65536, "a").End(xlUp).Row + 1
If Son < 3 Then Son = 3
If Cells(Son, "a").Value = "" Then
GoTo atla2
End If
atla2:
son değişkenine sayfanın son dolusatırının 1 fazlasını tanımlıyoruz.(siz x işaretini 65534 hücresine koyunca bu sayı 65535 oluyor )
eğer asütunu ilk boş hücresi boşsa (mantıksız) atla2 satırından devam et boş yere vakit kaybı.
sadece Son = Cells(65536, "a").End(xlUp).Row + 1 satırı kalsın ve o x işaretini silin donmayacaktır. saygılar.

 

[ShodoW]

Tesekkurler

Evet kodları degıstırdım.
Oraya o "x" ler nasıl gıtmıs anlıyamadım ıkı gundur sorunu arıyorum yok bogle bısey ya duzeldı sımdı cok tesekkur edıyorum.