Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Vba İle Döndüyü Sağlayıp Veriyi Çekmek

HORZUM
HORZUM
Excel Cevaplanmış Soruları
39
3351

Vba İle Döndüyü Sağlayıp Veriyi Çekmek

Çözüldü #7
HORZUM
Aktif Üye
HORZUM
Bul
Aktif Üye
Adı Soyadı: BE.... HO....
Yaşı: 54
Konum: Burdur
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/05/2025,13:34
Yorumları: 115
Konuları: 27
Kayıt Tarihi: 22/12/2010
Teşekkür Puanı: 0
Mesleğiniz: MEMUR
(30/09/2022, 14:44)berduş yazdı: With ThisWorkbook.Sheets("T1") satırının altına aşağıdaki kodu yazıp dener misiniz?

    If (Target.Column = 3 Or Target.Column = 5) And Target.Row >= 1 Then
        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
            SonStn = Cells(1, Columns.Count).End(xlToLeft).Column
            kaydir = InStr(1, "ABCD", Cells(Target.Row, "E").Value, vbTextCompare)
                    Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)
                    If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(kaydir).Value
        End If
    End If

Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)

Cells üzerinde hata verdi
Cevapla
Çözüldü #8
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:34
Yorumları: 8.592
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
kodu nereye yazdınız
tümünü ekler misiniz?
Cevapla
Çözüldü #9
HORZUM
Aktif Üye
HORZUM
Bul
Aktif Üye
Adı Soyadı: BE.... HO....
Yaşı: 54
Konum: Burdur
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/05/2025,13:34
Yorumları: 115
Konuları: 27
Kayıt Tarihi: 22/12/2010
Teşekkür Puanı: 0
Mesleğiniz: MEMUR
(30/09/2022, 14:44)berduş yazdı: With ThisWorkbook.Sheets("T1") satırının altına aşağıdaki kodu yazıp dener misiniz?

    If (Target.Column = 3 Or Target.Column = 5) And Target.Row >= 1 Then
        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
            SonStn = Cells(1, Columns.Count).End(xlToLeft).Column
            kaydir = InStr(1, "ABCD", Cells(Target.Row, "E").Value, vbTextCompare)
                    Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)
                    If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(kaydir).Value
        End If
    End If

YARDIMLARIN İÇİN TEŞEKKÜR EDERİM SAĞOLASIN.
Cevapla
Çözüldü #10
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:34
Yorumları: 8.592
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
(30/09/2022, 15:13)berduş yazdı: kodu nereye yazdınız
tümünü ekler misiniz?

burada 2 soru sormuşum
kodu nereye yazdığınızı ve tüm kodu.
siz sadece kodun bir kısmını yazmışsınız diğer soruma ise cevap bile yazmamışsınız?
siz yeterli açıklama yapmazsanız yardımcı olamayız
Cevapla
Çözüldü #11
HORZUM
Aktif Üye
HORZUM
Bul
Aktif Üye
Adı Soyadı: BE.... HO....
Yaşı: 54
Konum: Burdur
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/05/2025,13:34
Yorumları: 115
Konuları: 27
Kayıt Tarihi: 22/12/2010
Teşekkür Puanı: 0
Mesleğiniz: MEMUR
(30/09/2022, 15:34)berduş yazdı:
(30/09/2022, 15:13)berduş yazdı: kodu nereye yazdınız
tümünü ekler misiniz?

burada 2 soru sormuşum
kodu nereye yazdığınızı ve tüm kodu.
siz sadece kodun bir kısmını yazmışsınız diğer soruma ise cevap bile yazmamışsınız?
siz yeterli açıklama yapmazsanız yardımcı olamayız

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 = 3 Or Target.Column = 5) And Target.Row >= 1 Then
If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
SonStn = Cells(1, Columns.Count).End(xlToLeft).Column
kaydir = InStr(1, "ABCD", Cells(Target.Row, "E").Value, vbTextCompare)
Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)
If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(kaydir).Value
End If
End If
End Sub

bu şekilde düzenledim. yıldan sadece 2019 calışıyor, diğer yılları görmüyor."ABCD" kısmı 15/a 25/c 18/d.. şeklinde yazabilirmiyiz
Cevapla
Çözüldü #12
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:34
Yorumları: 8.592
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
End With EKLENMEMİŞ
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 = 3 Or Target.Column = 5) And Target.Row >= 1 Then
        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
            SonStn = Cells(1, Columns.Count).End(xlToLeft).Column
            kaydir = InStr(1, "ABCD", Cells(Target.Row, "E").Value, vbTextCompare)
                    Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)
                    If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(kaydir).Value
        End If
    End If
    End With
    Set bul = Nothing
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task