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

[hakan_gunduz]

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]

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.

 

[hakan_gunduz]

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?

İndir tarihgetir

Dosyayı indir tarihgetir

dosya.co

 

[baydeniro]

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?

İndir tarihgetir

Dosyayı indir tarihgetir

dosya.co

veriler hep 5'erli guruplar halinde mi ?

 

[hakan_gunduz]

veriler hep 5'erli guruplar halinde mi ?

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?

 

[baydeniro]

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]

Formülle nasıl olur bilmiyorum. Makro isterseniz aşağıdaki makroyu deneyin:

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]

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)

 

[hakan_gunduz]

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)

Çok teşekkür ederim bu formül işimize yaradı, çok sağolun

 

[hakan_gunduz]

Formülle nasıl olur bilmiyorum. Makro isterseniz aşağıdaki makroyu deneyin:

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

 

[baydeniro]

Çok teşekkür ederim bu formül işimize yaradı, çok sağolun

rica ederim kolay gelsin