belirlenen tarihler arasını otomatik doldurma

av.akpinar · 25 Temmuz 2021

tablo 1 deki sarı kutudaki tarihleri başka tablodan çekiyorum, diğer kutular formülle doluyor (yıl sonu, yıl başı formülü) tablo 1 i tablo 2 ye otomatik çeviren bir formül yazılabilir mi.

(tablo 1 deki 11.satırdaki hatayı da giderecek formül yazamadım henüz)

Özetle; dönem başı ve dönem sonu olarak yapılacak iki sütuna belirlediğim tarihlerin birbirini takip eder şekilde yerleştirilmesi nasıl mümkün olabilir.

Dönem başı Dönem sonu
15.11.2025 31.12.2025
01.01.2026 31.12.2026
01.01.2027 15.11.2027
15.11.2027 31.12.2027
01.01.2028 31.12.2028
01.01.2029 15.11.2029
15.11.2029

koyu siyah tarihleri X!A1 X!A2 X!A3 Vd. çeksin düzenli bir şekilde döngüyü ilk tarihten son tarihe kadar tamamlasın istiyorum.
Emekleriniz için teşekkür ederim.

Necdet · 25 Temmuz 2021

Merhaba,

Dosya örneğini paylaşım sitelerinden birine kopyalayın, resim olarak kimsenin işine yaramaz.
Yardım almanız daha kolay olur.

av.akpinar · 25 Temmuz 2021

tablo 1 https://www.transfernow.net/dl/20210725pIscLcn3
tablo 2 https://www.transfernow.net/tr/dltransfer?utm_source=20210725FezrKVlm istenilen şekil

Necdet · 26 Temmuz 2021

Excel dosyası demiştim, yardımcı olmak isteyen hiç kimse resimlere bakarak, yeni bir excel dosyası oluşturup üzerinde çalışmak istemez.
Kimsenin de buna zamanı olduğunu düşünmüyorum.
İyi geceler.

av.akpinar · 26 Temmuz 2021

Tabloluk iş yok aslında
Veriler:
15.11.2025
15.11.2027
15.11.2029

İstenen tablo:
Dönem başı Dönem sonu
15.11.2025 31.12.2025
01.01.2026 31.12.2026
01.01.2027 15.11.2027
15.11.2027 31.12.2027
01.01.2028 31.12.2028
01.01.2029 15.11.2029
15.11.2029

Saydığım üç tarihi bu şekilde dönem başı dönem sonu olarak başlayıp bitiren bir formül yeterli, mantığını anlasam yeter

YUSUF44 · 26 Temmuz 2021

Sayın Necdet'in belirttiklerine katılıyorum ve eklediğiniz resimlerdeki çelişkiye dikkat çekmek istiyorum:

2. yani olmasını istediğim tablo diye belirttiğiniz tabloda ilk 3 sarı hücrenin altındaki hücreler bir önceki dönem sonundan sonraki gün iken sonraki 2 sarı hücreden sonraki tarihler önceki donem sonuyla aynı tarih olarak belirtilmişler.

av.akpinar · 26 Temmuz 2021

YUSUF44' Alıntı:
Sayın Necdet'in belirttiklerine katılıyorum ve eklediğiniz resimlerdeki çelişkiye dikkat çekmek istiyorum:

2. yani olmasını istediğim tablo diye belirttiğiniz tabloda ilk 3 sarı hücrenin altındaki hücreler bir önceki dönem sonundan sonraki gün iken sonraki 2 sarı hücreden sonraki tarihler önceki donem sonuyla aynı tarih olarak belirtilmişler.

Ordaki hatayı belirtmiştim ilk başta. Benim Manuel arayışlarım elle düzeltmeli, makrosuz ancak onu yapabiliyorum üzgünüm

tablo önemli değil. Tabloları da boşver

SORUM ŞU;

Veriler:
15.11.2025
15.11.2027
15.11.2029

İstenen tablo:
Dönem başı Dönem sonu
15.11.2025 31.12.2025
01.01.2026 31.12.2026
01.01.2027 15.11.2027
15.11.2027 31.12.2027
01.01.2028 31.12.2028
01.01.2029 15.11.2029
15.11.2029

Sadece Saydığım üç tarihi bu şekilde dönem başı dönem sonu olarak başlayıp bitiren bir formül yeterli,

sbayyigit · 26 Temmuz 2021

örnek dosyadaki formüllerden faydalanarak yapabilirsiniz.

av.akpinar · 26 Temmuz 2021

Makrosuz çok zor reis, ben 3 tane tarih verince dahi (15.11.2025
15.11.2027
15.11.2029)

Aşağıdaki şekle getirecek formül olacaksa eğer ler kullanılmalı bi sürü

15.11.2025 31.12.2025
01.01.2026 31.12.2026
01.01.2027 15.11.2027
15.11.2027 31.12.2027
01.01.2028 31.12.2028
01.01.2029 15.11.2029
15.11.2029

av.akpinar · 26 Temmuz 2021

YUSUF44' Alıntı:
Sayın Necdet'in belirttiklerine katılıyorum ve eklediğiniz resimlerdeki çelişkiye dikkat çekmek istiyorum:

2. yani olmasını istediğim tablo diye belirttiğiniz tabloda ilk 3 sarı hücrenin altındaki hücreler bir önceki dönem sonundan sonraki gün iken sonraki 2 sarı hücreden sonraki tarihler önceki donem sonuyla aynı tarih olarak belirtilmişler.

Aslında hata değil excelin mantığı bu şekilde
1.01.2027 15.11.2027 0,872222222
15.11.2027 31.12.2027 0,127777778
toplam. 1
Değer 1 yaptığı için sıkıntı yok

YUSUF44 · 26 Temmuz 2021

Formülle nasıl yapılır bilmiyorum. Makroyla resimdeki gibi bir çözüm bulunabilir. Makro A2'den itibaren aşağı doğru dönem başlarının olduğu durumda, D2'den itibaren dönemleri oluşturmak üzere ayarlanmıştır:

NADİR YILDIZ · 26 Temmuz 2021

Resimli kodlama ve anlatım gayet güzel olmuş üstad
aklınıza sağlık

av.akpinar · 26 Temmuz 2021

Canınız sağolsun reis ellerinize sağlık, sıkıntısız çalıştı maşallah) Allah razı olsun sizden

av.akpinar · 26 Temmuz 2021

Kod:

Sub tarihler()
sonA = Cells(Rows.Count, "A").End(3).Row

For donem = 2 To sonA - 1
    donemsonu = Cells(donem + 1, "A") - 1
10:
    yeni = Cells(Rows.Count, "D").End(3).Row + 1
    If yeni = 2 Then
        Cells(yeni, "D") = Cells(donem, "A")
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
    Else
        Cells(yeni, "D") = Cells(yeni - 1, "E") + 1
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
    End If
    If Cells(yeni, "E") < donemsonu Then GoTo 10
Next
Cells(yeni + 1, "D") = Cells(sonA, "A")
Range("D2:E" & yeni + 1).NumberFormat = "dd/mm/yyyy"
End Sub

01.01.2025	14.11.2025
15.11.2025	31.12.2025
01.01.2026	31.12.2026
01.01.2027	14.11.2027
15.11.2027	31.12.2027

Bu kod çok iyi yalnız bizim sürekli kullandığımız şekil aşağıdaki gibi : 15.11.2025 de kesip tekrar 15.11.2025ten başlaması mümkün kılınabilir mi ancak bu şekilde olursa bir tam yılı veriyor çünkü. yılda 1 gün eksik oluyor bu haliyle

1.1.2025

15.11.2025

31.12.2025

1.1.2026

31.12.2026

1.1.2027

15.11.2027

31.12.2027

YUSUF44 · 27 Temmuz 2021

Öncelikle örnek excel dosyasının neden önemli olduğunu umarım anlamışsınızdır.

Açıklamalarınızdan anlamadım ama örnek dosyanızdaki verilerden anladığım kadarıyla aşağıdaki kodları deneyiniz:

PHP:

Sub tarihler()
sonA = Cells(Rows.Count, "A").End(3).Row
sonD = Cells(Rows.Count, "D").End(3).Row
If sonD > 1 Then Range("D2:E" & sonD).Clear

For donem = 2 To sonA - 1
    donemsonu = Cells(donem + 1, "A")
10:
    yeni = Cells(Rows.Count, "D").End(3).Row + 1
    If yeni = 2 Then
        Cells(yeni, "D") = Cells(donem, "A")
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
    ElseIf Cells(yeni - 1, "E") = Cells(donem, "A") Then
        Cells(yeni, "D") = Cells(donem, "A")
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
        Cells(yeni, "D").Interior.Color = vbYellow
    Else
        Cells(yeni, "D") = Cells(yeni - 1, "E") + 1
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
    End If
    If Cells(yeni, "E") < donemsonu Then
        GoTo 10
    Else
        Cells(yeni - 1, "E") = Cells(yeni - 1, "E") - 1
    End If
Next
Cells(yeni + 1, "D") = Cells(sonA, "A")
Cells(yeni + 1, "D").Interior.Color = vbYellow
Range("D2:E" & yeni + 1).NumberFormat = "dd/mm/yyyy"
Range("D2:E" & yeni + 1).Borders.LineStyle = 1
End Sub

av.akpinar · 27 Temmuz 2021

üstat ellerine sağlık istediğim şekilde olmuş ; bu seferde bazı yıl sonlarını 30.12.2024 gibi 30 unda bırakmış buna bir çözüm bulunabilir mi . tüm yıl sonlarının 31.12.2024 gibi 31ine bitmesi gerekiyor

YUSUF44 · 27 Temmuz 2021

Aşağıdaki gibi deneyin:

PHP:

Sub tarihler()
sonA = Cells(Rows.Count, "A").End(3).Row
sonD = Cells(Rows.Count, "D").End(3).Row
If sonD > 1 Then Range("D2:E" & sonD).Clear

For donem = 2 To sonA - 1
    donemsonu = Cells(donem + 1, "A")
10:
    yeni = Cells(Rows.Count, "D").End(3).Row + 1
    If yeni = 2 Then
        Cells(yeni, "D") = Cells(donem, "A")
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
    ElseIf Cells(yeni - 1, "E") = Cells(donem, "A") Then
        Cells(yeni, "D") = Cells(donem, "A")
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
        Cells(yeni, "D").Interior.Color = vbYellow
    Else
        Cells(yeni, "D") = Cells(yeni - 1, "E") + 1
        Cells(yeni, "E") = WorksheetFunction.Min(DateSerial(Year(Cells(yeni, "D")), 12, 31), donemsonu)
    End If
    If Cells(yeni, "E") < donemsonu Then
        GoTo 10
    End If
Next
Cells(yeni + 1, "D") = Cells(sonA, "A")
Cells(yeni + 1, "D").Interior.Color = vbYellow
Range("D2:E" & yeni + 1).NumberFormat = "dd/mm/yyyy"
Range("D2:E" & yeni + 1).Borders.LineStyle = 1
End Sub

av.akpinar · 27 Temmuz 2021

Hocam Allah razı olsun sizden, çok teşekkür ederim, çok güzel çalışıyor

av.akpinar · 27 Temmuz 2021

Üstat ek olarak bir ay sıralamasına daha ihtiyacım var. asgari ücret hesabı için ,2016 öncesi yılda iki kez değiştiği için yılık tabloyu kullanamıyorum. Aşağıdaki tablonun 3.sayfasına açıklamayı yazdım. Size zahmet, baya zaman alıcı bir işlem sürekli manuel yazmak benim için ,

YUSUF44 · 29 Temmuz 2021

Bu sorunuz bu konu başlığının devamı mı yoksa ayrı bir konu mu?

belirlenen tarihler arasını otomatik doldurma

av.akpinar

Necdet

Moderatör

av.akpinar

Necdet

Moderatör

av.akpinar

YUSUF44

Destek Ekibi

av.akpinar

sbayyigit

Ekli dosyalar

av.akpinar

av.akpinar

YUSUF44

Destek Ekibi

NADİR YILDIZ

av.akpinar

av.akpinar

Ekli dosyalar

YUSUF44

Destek Ekibi

av.akpinar

Ekli dosyalar

YUSUF44

Destek Ekibi

av.akpinar

av.akpinar

Ekli dosyalar

YUSUF44

Destek Ekibi