Skip to main content

AccessTr.neT


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

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

Çözüldü #1
VBA ile C sütununa girdiğim tarihe göre E sütununda yapacağım seçim doğrultusunda F sütununa T1 sayfasından istenilen veriyi getirmesi getirmek için döngüyü sağlayamadım. Sağladığım zaman 01.01.2019 olarak tarih girdiğimde tarihi görmüyor. 02.01.2019 girdiğimde tarihi görüyor.
.rar Hakediş.rar (Dosya Boyutu: 22,12 KB | İndirme Sayısı: 15)
Cevapla
#2
biraza daha açıklama yapar mısınız?
(19/08/2022, 14:39)HORZUM yazdı: C sütununa girdiğim tarihe göre E sütununda yapacağım seçim doğrultusunda F sütununa T1 sayfasından istenilen veriyi getirmesi getirmek
demişsiniz ama C sütununda gün-ay-yıl formatında tarih varken T1 sayfasında öyle bir tarih yok
1.1.2019 tarihini görmüyor demişsiniz T1de öyle bir tarih yok neden görsün
02.01.2019 tarihini görüyor demişsiniz T1de öyle bir tarih de yok nasıl görüyor
2020 yılı ve B seçimi için neden 40 getiriyor
Cevapla
#3
Hakediş sayfasındaki C sütununa girdiğim tarihe göre yine E sütununda ki seçilene göre F sütununa T1 sayfasındaki tarihleri görerek önceki sonraki veriyi getirecek

(20/08/2022, 11:49)HORZUM yazdı: Hakediş sayfasındaki C sütununa girdiğim tarihe göre yine E sütununda ki seçilene göre  F sütununa T1 sayfasındaki tarihleri görerek önceki sonraki veriyi getirecek. T1 sayfasını kendinize göre de düzenleyebilirsiniz.
Son Düzenleme: 20/08/2022, 11:51, Düzenleyen: HORZUM.
Cevapla
#4
(19/08/2022, 16:35)berduş yazdı: biraza daha açıklama yapar mısınız?
(19/08/2022, 14:39)HORZUM yazdı: C sütununa girdiğim tarihe göre E sütununda yapacağım seçim doğrultusunda F sütununa T1 sayfasından istenilen veriyi getirmesi getirmek
demişsiniz ama C sütununda gün-ay-yıl formatında tarih varken T1 sayfasında öyle bir tarih yok
    1.1.2019 tarihini görmüyor demişsiniz T1de öyle bir tarih yok neden görsün
02.01.2019 tarihini görüyor demişsiniz T1de öyle bir tarih de yok nasıl görüyor
2020 yılı ve B seçimi için neden 40 getiriyor

Hakediş sayfasındaki C sütununa 2019-2020-2021-2022-2023-2024-2025-2026 tarihlerinden (örn.21.07.2019-12.12.2020......) girildiğinde E sütunundaki A B C D seçeneklerinden biri seçildiğinde seçilen tarihe göre T1 sayfasındaki A B C D karşısındaki değerleri F sütununa getirecek. T1 sayfasını siz kendinize göre düzenleyebilirsiniz.
Cevapla
Çözüldü #5
Hakediş sayfasındaki C sütununa 2019-2020-2021-2022-2023-2024-2025-2026 tarihlerinden (örn.21.07.2019-12.12.2020......) girildiğinde E sütunundaki A B C D seçeneklerinden biri seçildiğinde seçilen tarihe göre T1 sayfasındaki A B C D karşısındaki değerleri F sütununa getirecek. T1 sayfasını siz kendinize göre düzenleyebilirsiniz.
.rar Oranlama.rar (Dosya Boyutu: 19,19 KB | İndirme Sayısı: 6)
Son Düzenleme: 30/09/2022, 11:52, Düzenleyen: HORZUM.
Cevapla
Çözüldü #6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da