tarih toplama

[aydın3838]

selamlar

ben işyerimde pos makineleri var

pos çekimlerini çekim tarihi farzedelim bu gün 09,09,2009 ben bu çekimi 40 gün sonra hesabımda görebiliyorum bu yüzden belli bir tarihe + 40 veya benim belirlicem bir gün sayını toplaması için makro gerekiyor

yardımcı olursanız sevinirim

saygılar

 

[uzmanamele]

merhaba
örnek dosyayı siz hazırlayın biz çözüm önerelim. her ikisi birden yorucu oluyor!
basit olan en iyisidir, bunun için formül yeterli değil mi, neden makro istiyorsunuz?

 

[aydın3838]

derhal

örnek ekte

 

[aydın3838]

sayın uzman amele

dosya tasarım dahil ilavelere açıktır çünkü ben dahil bir çok işletmenin ihtiyaç duuduğu bir sorun bu

hemen hemen bütün bankalar pos anlaşmalarını nakit çekimlerde 30 veya 45 gün sonra kobilerinin hesabına geçer dikkat edilirse nakit çekim dedim

nakit çekimde anlaşmalar bu yöndedir

birde posla bu gün çekilen para ertesi gün hesap sahibi tarafından çekilmek istenirse % 3 civarında kesintiş uygular

dosya tasarımında değişime açığım derken sizlerinde extra fikirleri varsa uygulamanız içimdir

saygılarımı sunarım

 

[aydın3838]

sayın uzmanamele

cavabınızı tam okumadan yazdım

neden formül değil sizi biraz tanıdığıma göre ilgi alanınız fonksiyonlar.

tamam formullerlede olur benim işimide görür fakat veri tabanı olarak access kullanılırsa

formüller boşa çıkıyor bu yüzden kalıcı olan makro diye düşünmekteyıim

saygılar

 

[uzmanamele]

merhaba

örnek dosyanızda birkaç örnek çözüm olsun ki bu verilere göre kod yazılabilsin.
yoksa sonucun doğruluğunu kontrol edemeyiz.

 

[aydın3838]

Yeni örnek

 

[uzmanamele]

merhaba

bu kodu dener misiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
If Target.Offset(0, -1).Text = "nakit" Then
Target.Offset(0, 1) = Target.Value + 1
Target.Offset(0, 2) = "3%"
Target.Offset(0, 3) = Target.Offset(0, -2) * Target.Offset(0, 2)
Target.Offset(0, 5) = Target.Offset(0, -2) - Target.Offset(0, 3)

Else:
Target.Offset(0, 1) = Target.Value + Target.Offset(0, -1).Value
Target.Offset(0, 2) = "yok"
Target.Offset(0, 3) = 0
Target.Offset(0, 5) = Target.Offset(0, -2)
End If
End Sub

not:
tutar için 1000 tl tl yazmayınız, 1000 yazmanız gerekir
tarih ayracını 09,09,2009 virgül değil 09.09.2009 nokta yapınız.

 

[aydın3838]

sayın uzman amele 2, örneği düzenledim

size sadece textlerde toplatma kaldı

farkları benim belirlemem lazım

örneği incelerseniz form hazırladım
saygılar

 

[aydın3838]

selamlar

dün sayın uzman amelenin yardımları ve cesareti ile başladığım pos hesabı dosyamda birazda olsa ilerleme kaydedip bugüne geldim

ama sorunum hala devam ediyor

alttaki kodla iki tarihi birbiriyle toplamaya çalıştım fakat ilginç sonuçlar verriyor
tarihleri makıroyla nasıl toplarım çok uğraştım

textbox1.text=(date) +45
textbox1.text(formatdate)+45

gibi daha aklıma gelmeyen birçok yol denedim olmadı en son alttaki kodla birşeyler yapmaya çalıştım yaklaştığıma inaıyorum uzmanların yardımını bekliyorum

saygılar

Sub Toplama()
TextBox6 = Val(TextBox10) + Val(TextBox6)
MsgBox "Toplam sonucu : " & t
End Sub

 

[aydın3838]

selamlar

yukarıdaki örnekleri ve soruların bir çoğunu kendi çabalarımla çözdüm ve örnek dosyada geliştirip hazırladım

fakat sorumunda başlığını taşıyan soruma hala cevap bulamadım

örnekte textbox 5 te bu günün tarihini veriyor kodu şöyle TextBox5.Text = Format(Date, "d.mm.yyyy") textbox6 dada tarihi toplarken textbox6.text=date +45 gün şeklinde

textbox5 manuel olarak el ile tarih girip toplamam gerekiyor bu günün tarihini değilde

geçmiş tarihteki kayıtları girmem için bunu nasıl sağlarım

saygılar