Excel tarihe göre sayı çekme

[kimimben87]

Merhabalar;


bana yardımcı olabilir misiniz?

 

[dEmir1]

Merhabalar;


bana yardımcı olabilir misiniz?

Umarım yardımcı olabilmişimdir.

 

[Murat OSMA]

Sayfanın kod kısmına bu kodları yazıp, ilgili sütunlarda tarih giriniz;

[FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rky As Range
    If Target.Row <> 4 Or Not IsDate(Target.Value) Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Set Rky = Sayfa1.Columns(Target.Column).Find(CDate(Target.Value), , , 1)
    If Not Rky Is Nothing Then
        Target.Offset(0, 1).Value = Rky.Offset(0, 1).Value
        Target.Offset(0, 2).Value = Rky.Offset(0, 2).End(3).Value
    End If
    Set Rky = Nothing
End Sub[/FONT]

Ya da alternatif olarak bu kodları da kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky As Range, i%
    For i = 2 To 20
        If Cells(4, i) <> "" Then
            Set Rky = Sayfa1.Columns(i).Find(CDate(Cells(4, i).Value), , , 1)
            If Not Rky Is Nothing Then
                Cells(4, i).Offset(0, 1).Value = Rky.Offset(0, 1).Value
                Cells(4, i).Offset(0, 2).Value = Rky.Offset(0, 2).End(3).Value
            End If
        End If
    Next i
    i = Empty: Set Rky = Nothing
End Sub
[/FONT]

 

[kimimben87]

Merhabalar hocam ;

teşekkür ederim çok yardımcı oldunuz bir şey daha isteyeceğim yanındaki sutunda (kullanılan basamak) onuda yazmasını sağalayabilrimiyiz?

şimdiden çok teşekkürler emeğinize sağlık

 

[dEmir1]

İstediğiniz şekilde düzenlenmiştir.

 

[kimimben87]

demir bey çok teşekkür ederim hızlı cevap ve ilginiz için ,murat bey sizde saolun