tarih hesaplama

[Ömer BARAN]

Merhaba.

Yeni örnek belgeniz nerede acaba?
Sanırım belgenize erişim adresini eklemeyi unuttunuz.

 

[Ömer BARAN]

"#13" nolu mesajda belirttiğim sorunum Sayın Ömer BARAN tarafından giderilmişti. Bu noktadan sonra ......... yazılı formüllerden sadece bir tanesi "#DEĞER!" hatası verdi.
..........
Dosyada "IYZICO" sayfasında "#13" nolu mesajımdan sonra eklenen formüller sarı renk ile, hata veren hücre ise mavi renk ile belirtilmiştir.

Merhabalar.

Bahsettiğiniz hücredeki formülü dğiştirmek yerine;
alt taraftaki formüllerde yer alan, )=DOĞRU;""; kısımlarını )=DOĞRU;0; olarak değiştirip,
Excel gelişmiş seçeneklerinden "Değeri sıfır olan hücrelerde sıfır göster" seçeneğindeki
onay işaretini kaldırabilirsiniz.

Ayrıca; diğer sayfadaki verileri sadece Satış sıra No bilgisini yazarak neden çağırdığınızı,
yani bu sayfanın alt tarafındaki listeyi neden kullandığınızı da anlamak güç.

Aynı bilgileri bir sayfadan diğerine aktarıp, aktarılan veriler üzerinden toplamalar filan yaptırmak
yerine doğrudan SİPARİŞLER sayfasındaki alanlara atıf yapan formüllerle özet bilgiler
görüntüleyebilirsiniz.

Bunun için;
-- Belgenizde sonsat şeklinde bir AD TANIMLAMA yapın ve formül kısmına da aşağıdaki formülü uygulayın
(Bu formül son dolu satırın kaçıncı satır olduğunu bulur ve böylece SİPARİŞLER sayfasında yeni sipariş eklendikçe
bu ad tanımlama formülünüzün kapsadığı alanı buna göre genişletir) .

=BAĞ_DEĞ_DOLU_SAY([B][COLOR="Blue"]SİPARİŞLER!$C:$C[/COLOR][/B])+2

-- Ardından da IYZICO sayfası M3 hücresindeki formülü aşağıdaki ile değiştirin.

=TOPLA.ÇARPIM((DOLAYLI("SİPARİŞLER!F4:F"&[B][COLOR="Blue"]sonsat[/COLOR][/B])>=$M$5)*(DOLAYLI("SİPARİŞLER!F4:F"&[B][COLOR="Blue"]sonsat[/COLOR][/B])<=$O$5)*(DOLAYLI("SİPARİŞLER!Y4:Y"&[B][COLOR="Blue"]sonsat[/COLOR][/B])))

-- Diğer formüllerinizi de buna göre güncelleyin bence.
Bu sayede IYZICO sayfasında liste oluşturmadan SİPARİŞ sayfasından özet bilgiler elde edebilirsiniz.

Bu söylediklerimin uygulanmış örneği olan GELİRLER isimli belgeye BURADAN ulaşabilirsiniz.
Dosyada bir de sürpriz var, bir bakın isterseniz.
.

 

[snake5500]

Merhabalar.

Bahsettiğiniz hücredeki formülü dğiştirmek yerine;
alt taraftaki formüllerde yer alan, )=DOĞRU;""; kısımlarını )=DOĞRU;0; olarak değiştirip,
Excel gelişmiş seçeneklerinden "Değeri sıfır olan hücrelerde sıfır göster" seçeneğindeki
onay işaretini kaldırabilirsiniz.

Merhaba,

Sayın Ömer BARAN. Öncelikle cevabım geciktiği için özür dilerim. Her sorunumla ilgilendiğiniz için de teşekkür ederim. Alıntı yaptığım kısım aslında benim için yeterli oldu. Devamındaki tespitleriniz ve önerileriniz ise çok yerinde. Lakin benim hazırlamış olduğum dosyayı kullanma şeklim biraz farklı. Sürekli yeni unsurlar eklemem gerekiyor. Excel bilgim ileri seviyede olmadığı için de bunu kolayıma geldiği şekilde yapma yolunu seçiyorum. Bir başka deyişle, ne yaptığımı daha net görmek adına uzun yol kolayıma geliyor.
Şuanda ise, az önce bahsettiğim gibi yeni bir unsur eklemek üzereyim ve yine yardıma ihtiyacım var. Şuana kadarki gereksinimlerimi fonksiyonlar ile çözebildim. Ancak bu seferki isteğim sanırım VBA gerektirecek. Yeni oluşturduğum bir çalışma sayfasında hesap özeti oluşturmam gerekli. Lakin bilinen cari hesap programlarındaki gibi ayrı ayrı kayıt tutmadığım için, basit bir sistemle bunu yapma yoluna gitmeliyim. Bunun için de yeni çalışma sayfasında belirlediğim ve hep aynı yerde kalacak olan tek bir hücreye bayi adı girişi yaptığımda, daha önceden hazırlamış olduğum "gelirler" ve "siparişler" sayfalarından veri çekerek bunu halletmeyi planlıyorum. Kısacası; aynı çalışma kitabındaki "Hesap Özeti" isimli sayfada E4 hücresine bayi adı girdiğimde; aynı sayfada aşağıya doğru "Siparişler" sayfasından ilgili bayinin tüm siparişlerini, "Gelirler" sayfasından ise ilgili bayiden alınan ödemeleri çekmem gerekiyor. Şimdiden teşekkür ederim.

http://www.dosya.tc/server7/02hfue/ornek.xlsx.html

Not: Örnek dosya güncellenmiştir. Saat:12:45

 

[tahsinanarat]

Sn. snake5500, hesap hareketi yazan yeri ne gelecek, belirttiğin sayfalardan ne şekilde bilgi gelmesini istiyorsanız örnek dosyanızda gelmesini istediğiniz şekilde örnek girip gönderebilirmisiniz.

 

[snake5500]

Sn. snake5500, hesap hareketi yazan yeri ne gelecek, belirttiğin sayfalardan ne şekilde bilgi gelmesini istiyorsanız örnek dosyanızda gelmesini istediğiniz şekilde örnek girip gönderebilirmisiniz.

Sayın tahsinanarat, dosyada bir güncelleme yaptım ancak yeterli mi bilmiyorum. Daha fazla ayrıntı gerekliyse lütfen söyleyin hemen güncelleyeyim. Benim düzenleme yapmak istediğim kısım "Hesap Özeti" sayfasındadır.

 

[tahsinanarat]

Ekli dosyanızı inceleyiniz

Sn. snake5500, elimdeki malzemeler ile anladığım kadar yapmaya çalıştım, tabiiki üstatlarımız da incelerlerse daha iyi hale gelir sanırım.
HESAP ÖZETİ sayfasının kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, sat As Long
If Intersect(Target, [E4]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error GoTo hata
Range("B7:J65536").ClearContents
sat = 7
Set s1 = Sheets("SİPARİŞLER")
For i = 4 To s1.Cells(65536, "B").End(xlUp).Row
    If LCase(Replace(Replace(Target.Value, "I", "ı"), "İ", "i")) = _
    LCase(Replace(Replace(s1.Cells(i, "D").Value, "I", "ı"), "İ", "i")) Then
    Cells(sat, "B").Value = s1.Cells(i, "F").Value
    Cells(sat, "C").Value = s1.Cells(i, "H").Value & " " & s1.Cells(i, "N").Value & " " & s1.Cells(i, "O").Value
    Cells(sat, "F").Value = s1.Cells(i, "AD").Value
    sat = sat + 1
    End If
Next i
Set s2 = Sheets("GELİRLER")
For j = 4 To s2.Cells(65536, "B").End(xlUp).Row
    If LCase(Replace(Replace(Target.Value, "I", "ı"), "İ", "i")) = _
    LCase(Replace(Replace(s2.Cells(j, "G").Value, "I", "ı"), "İ", "i")) Then
    Cells(sat, "B").Value = s2.Cells(j, "D").Value
    Cells(sat, "C").Value = s2.Cells(j, "I").Value
    Cells(sat, "H").Value = s2.Cells(j, "J").Value
    sat = sat + 1
    End If
Next j
hata:
Set s2 = Nothing
End Sub

yapıştırıp deneyiniz.

 

[ELİT35]

Merhaba ''vade 15 gün sonraki ilk perşembe' formulu nasıldır?

 

[Ömer BARAN]

Merhaba ''vade 15 gün sonraki ilk perşembe' formulu nasıldır?

Merhaba.

Tarih A1 hücresinde ise; en az 15 gün sonra olmak üzere, ilk Perşembe gününün tarihi, örneğin aşağıdaki gibi bulunabilir.
.

=[B][COLOR="Blue"]A1[/COLOR][/B]+[B][COLOR="Red"]15[/COLOR][/B]+ARA(HAFTANINGÜNÜ([B][COLOR="Blue"]A1[/COLOR][/B]+[B][COLOR="Red"]15[/COLOR][/B];2);{1;2;3;4;5;6;7};{3;2;1;0;6;5;4})

 

[CheSabata]

Kolay gelsin arkadaşlar benim de sıkıntım var excelde çok iyi değilim bi çözüm bulamadım yardımcı olabilirseniz sevinirim.

​

Resimdeki gibi görevlendirme tablosu tutuyorum. Renklendirme konusunda sıkıntı yok ama "Kalan Geçici Görev Süresi" kısmında "=YIL(K3)-YIL(BUGÜN())&" Yıl "&AY(K3)-AY(BUGÜN())&" Ay "&GÜN(K3)-GÜN(BUGÜN())&" Gün" bu formülü kullanıyorum. Fakat yıl ay gün olarak eksiye düşürme konusunda hepsine ayrı işlem yapıyor. Mesela "0 Yıl -1 Ay 6 Gün" yerine "-0 Yıl 0 Ay 25 Gün", "1 Yıl 2 Ay -9 Gün" yerine "1 Yıl 1 Ay 23 Gün" gibi olacak şeklinde bir türlü yazdıramadım. Nasıl bir formül kullanmam lazım?

 

[YUSUF44]

Tarihlerle ilgili işlemlerde ETARİHLİ formülünü kullanmalısınız. K3'te ilk tarih varsa ve bugüne kadar olan süreyi belirttiğiniz şekilde bulmak istiyorsanız aşağıdaki formülü kullanmalısınız:

=ETARİHLİ(K3;BUGÜN();"y")&" yıl - "&ETARİHLİ(K3;BUGÜN();"ym")&" ay - "&ETARİHLİ(K3;BUGÜN();"md")&" gün"

Yalnız K3 yani ilk tarih bugünden yani ikinci tarihten büyük olmamalıdır.

 

[CheSabata]

K sütunu, "Geçici Görev Bitiş Tarihi" sütunu hocam. K3 hücresi "31.12.2020" tarihiyle başlıyor. Sizin verdiğiniz formülü denedim ama #SAYI! hata mesajı veriyor. Yani yapmak istediğim K sütunundaki tarih henüz gelmediyse tamamlanmasına ne kadar var, eğer zaman geçtiyse, kırmızı uyarı veren satırlarda "-... Yıl ... Ay ... Gün" gibi eksi değerli sonuç vermesi. Ay ile gün kısmında değil de kalan zamanı genel olarak yılın başında - değer vererek göstermeye çalışıyorum. Resimdeki değerler BUGÜN() formülüyle 24.10.2018 tarihli sonuçlar. Office 2010 kullanıyoruz.

 

[YUSUF44]

Dosyayı örnek excel dosyayı olarak paylaşıp, dosyanızda tam olarak istediğiniz sonucu birkaç örnekle gösterirseniz daha anlaşılır olur.

 

[CheSabata]

Alttaki linke yükledim hocam, açıklama kısmına L sütununda formülle çıkması gereken istediğim değerleri açıklama kısmında anlatmaya çalıştım bi bakabilirseniz. İlginiz için teşekkürler...

-> Link <-

 

[YUSUF44]

Verdiğiniz linkteki Download düğmesine tıkladığımda yeni bir sayfa açılıyor ve Chrome'a bir eklenti yüklemek istiyor. Farklı bir yere yükler misiniz? (dosya.co, google drive vs)

 

[CheSabata]

Linki yeniledim hocam...

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

=EĞER(K3>BUGÜN();ETARİHLİ(BUGÜN();K3;"y")&" yıl - "&ETARİHLİ(BUGÜN();K3;"ym")&" ay - "&ETARİHLİ(BUGÜN();K3;"md")&" gün";"- "&ETARİHLİ(K3;BUGÜN();"y")&" yıl - "&ETARİHLİ(K3;BUGÜN();"ym")&" ay - "&ETARİHLİ(K3;BUGÜN();"md")&" gün")

 

[CheSabata]

Tamam başkan eline sağlık tam aradığım formül teşekkürler...