Üst hücredeki değeri yan tarafa yazdırma

Katılım
13 Ocak 2020
Mesajlar
5
Excel Vers. ve Dili
Office 2019 - Türkçe
Merhabalar,

Anlatması biraz zor bir sorunum var :) Elimden geldiğince yazmaya çalışayım.
A2 hücresinde tarih değeri var. A3 İLE A150 arasında ise o güne ait bilgiler var.
A152 hücresinde yine tarih değeri var ve A153 ile A350 arasında da bu güne ait bilgiler var.

Sorum şu: A2'deki tarih bilgisini B3 ile B150 arasında yazdırabilir miyim? Aynı şekilde A152'deki tarih bilgisini de B153 ile B350 arasına yazdırabilir miyim?
Bu noktada bir bağ kuramadım açıkçası, yardım edebilen biri olursa memnun olurum.
Saygılar,
 

S.Yiğit

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2008
Mesajlar
1,748
Excel Vers. ve Dili
2019 TR
Merhaba,

Küçük bir örnek hazırlayıp eklerseniz yardımcı olmaya çalışırız. Dosya yüklemek için "Altın Üyelik" linkini inceleyebilir veya internetten dosya yükleme sitelerini kullanabilirsiniz.
 
Katılım
13 Ocak 2020
Mesajlar
5
Excel Vers. ve Dili
Office 2019 - Türkçe
Merhaba,
Dosyayı yükledim, aşağıdaki linkten bakabilirsiniz.
Kırmızıyla yazılan tarih bilgileri C sütununa gelecek. Her tarih, kendi grubunun karşılığına gelecek şekilde nasıl yapabilirim acaba?

 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Hayır, veri sayıları değişiyor. Standart bir satır sayısı yok maalesef.
Tarih formatında "/" ayracı kullanılıyor. A sütununda "/" ayracı sadece tarihte var. Buradan bağ kurulabilir mi acaba?
peki, tarih ile altında ilişkilendirilecek veriler arasında daima 1 boş satır oluyor mu ?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Formülle nasıl olur bilmiyorum. Makro isterseniz aşağıdaki makroyu deneyin:

PHP:
Sub tarihle()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If IsDate(Cells(i, "A")) = True Then
        tarih = Cells(i, "A")
        For j = i + 1 To son
            If IsDate(Cells(j, "A")) = False Then
                If Cells(j, "A") <> "" Then
                    Cells(j, "C") = Cells(i, "A")
                End If
            Else
                i = j - 1
                j = son
            End If
        Next
    End If
Next
End Sub
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Hayır, veri sayıları değişiyor. Standart bir satır sayısı yok maalesef.
Tarih formatında "/" ayracı kullanılıyor. A sütununda "/" ayracı sadece tarihte var. Buradan bağ kurulabilir mi acaba?
verileri 1 satır aşağı indirip şu formülü C2 hücresine yazılınca oluyor
=EĞER(YADA(VE(A2<>"";B2<>"");VE(A2="";B2=""));C1;A2)
 
Katılım
13 Ocak 2020
Mesajlar
5
Excel Vers. ve Dili
Office 2019 - Türkçe
Formülle nasıl olur bilmiyorum. Makro isterseniz aşağıdaki makroyu deneyin:

PHP:
Sub tarihle()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If IsDate(Cells(i, "A")) = True Then
        tarih = Cells(i, "A")
        For j = i + 1 To son
            If IsDate(Cells(j, "A")) = False Then
                If Cells(j, "A") <> "" Then
                    Cells(j, "C") = Cells(i, "A")
                End If
            Else
                i = j - 1
                j = son
            End If
        Next
    End If
Next
End Sub
İlginiz için çok teşekkürler, formülle çözdük sorunumuzu :)
 
Üst