Skip to main content

AccessTr.neT


Excel'de Kod İle Hücreye Veri Alma

Excel'de Kod İle Hücreye Veri Alma

Çözüldü #1
Eklemiş olduğum Excel dosyasındaki T1 sayfasında bulunan verileri Y1 sayfasına(daha önce kod oluşturulmuştu) T1 deki tarihten önce olursa 2020'deki veriyi, sonra olursa 2021'deki veriyi kod ile nasıl alırım.
.rar İptal.rar (Dosya Boyutu: 15,66 KB | İndirme Sayısı: 7)
Cevapla
#2
Visual Basic Code
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    Dim trh As Date
    Dim CsutunTarih As Date
    
    With ThisWorkbook.Sheets("T1")
        If Target.Column = 5 And Target.Row >= 3 Then
            If Target.Cells.Count = 1 Then
                If Target.Offset(, -2).Value = "" Then
                    Target.Offset(, 1).Value = ""
                    MsgBox "Tarih giriniz...", vbCritical, "Hata"
                    Exit Sub
                End If
                If .Range("D2").Value = "" Then
                    MsgBox "T1 sayfasina Tarih giriniz...", vbCritical, "Hata"
                    Exit Sub
                End If
                
                trh = .Range("D2")
                CsutunTarih = Cells(Target.Row, 3)
                If CsutunTarih < trh Then
                    Set bul = .Range("B:B").Find(Target.Value, , , 1)
                    If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(, 1).Value
                ElseIf CsutunTarih > trh Then
                    Set bul = .Range("E:E").Find(Target.Value, , , 1)
                    If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(, 1).Value
                End If
            End If
        End If
    End With
    Set bul = Nothing
End Sub
Cevapla
#3
Feraz bey çok teşekkür ederim. Allah razı olsun.
Cevapla
#4
(19/02/2021 09:54)HORZUM Adlı Kullanıcıdan Alıntı: Feraz bey çok teşekkür ederim. Allah razı olsun.
Rica ederim.Aslında koda isdate ile tarihmi diyede şart eklenip mesaj verdilebilinirdi unutmuşum.
Sizdende Allah razı olsun.

Kolay gelsin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task