Sütunda bugünkü tarihin üstüne gitmek

[oborono]

Merhabalar;
Sayfa1 de A sütunda OCAK AYI yazan hücreye tıkladığımda Sayfa2 de A sütunda yukarıdan aşağı sıralı olan Ocak Ayının o günkü tarihi (yani işlemi hangi gün yapıyorsam o günün tarihine) bulunan hücreye gitmek ve sağındaki boş hücreyi seçmek istiyorum. Bunu kod sayfasında yapabilir miyiz?
Sayfa1 ana sayfa olacak, her ay içinde ayrı sayfa yapacağım.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[oborono]

Biliyorum soruma yanıt verecek çok üstat var, lakin sorum anlaşılmadıysa daha basit nasıl anlatayım!
Üstatlar lütfen bir el atın

 

[Muhammet Okumuş]

Dosya üzerinde açıklayınız.

 

[veyselemre]

Sayfa1 in Kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ay$, bul, tar
    If Intersect(Target, Range("A:A")) Is Nothing Or Target.Value = "" Then Exit Sub
    ay = WorksheetFunction.Proper(Split(Target.Value, " ")(0))
    Select Case ay
        Case "Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran" & _
             "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık"
        Case Else: Exit Sub
    End Select
    tar = DateValue(Day(Date) & " " & ay & " " & Year(Date))
    Set bul = Sheets("Sayfa2").Range("A:A").Find(tar)
    If Not bul Is Nothing Then
        Sheets("Sayfa2").Activate
        Sheets("Sayfa2").Cells(bul.Row, Columns.Count).End(xlToLeft).Offset(, 1).Select
    End If
End Sub

 

[oborono]

Dosya üzerinde açıklayınız.

Maalesef dosya yükleyemiyorum

 

[oborono]

Sayfa1 in Kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ay$, bul, tar
    If Intersect(Target, Range("A:A")) Is Nothing Or Target.Value = "" Then Exit Sub
    ay = WorksheetFunction.Proper(Split(Target.Value, " ")(0))
    Select Case ay
        Case "Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran" & _
             "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık"
        Case Else: Exit Sub
    End Select
    tar = DateValue(Day(Date) & " " & ay & " " & Year(Date))
    Set bul = Sheets("Sayfa2").Range("A:A").Find(tar)
    If Not bul Is Nothing Then
        Sheets("Sayfa2").Activate
        Sheets("Sayfa2").Cells(bul.Row, Columns.Count).End(xlToLeft).Offset(, 1).Select
    End If
End Sub

Öncelikle yanıt için çok teşekkür ederim,
Ana Sayfada (Sayfa1) "A" sütunda yukarıdan aşağı ayların isimleri ve her ayın ayrı sayfası ("Ocak" (Sayfa2), "Şubat" (Sayfa3) ...) var.
"Ocak" sayfasında "A" sütunun 4. sırasından itibaren yukarıdan aşağıya Ocak ayına ait günler var (01.01.2024, 02.01.2024...31.01.2024 gibi).
Her günün, "C" sütun dan itibaren sağa doğru "N" sütuna kadar veri girişleri yapıyorum, "B" sütunda ise verilerin toplamı var.
Ocak ayının hangi gününde işlem yapıyorsam o günün sağındaki boş hücreyi seçmesini istiyorum.
Dosya yükleme olanağım olsaydı çok daha iyi anlatmış olacaktım.

 

[Necdet]

Merhaba,
Dosya örneğinizi dosya paylaşım sitelerinden birine yükleyebilirsiniz.

Büyük Dosyalar Gönderme - Dosya Paylaşımı - TransferNow

Transfer başına 250 GB'a kadar büyük dosyaları göndermek ve paylaşmak için en kolay, en hızlı ve en güvenli ücretsiz dosya aktarım çözümü. Kayıt gerekmez.

www.transfernow.net

Dosya Upload - Dosya Yükle indir

Ücretsiz olarak dosya upload edebileceğiniz dosya yükleme sitesi. Hızlı dosya yükle ve paylaş.

www.dosyaupload.com

Send Large Files - Any Size - Up To 5 GB Free - Filemail

Send large files of any size fast. Share files up to 5 GB free with no account required. Trusted on all platforms for secure file transfers and sharing.

www.filemail.com

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[oborono]

https://www.dosyaupload.com/27pTh/Aylık_Bütçe_2024_-_Kopya_(2).xlsm

 

[oborono]

Merhaba,
Dosya örneğinizi dosya paylaşım sitelerinden birine yükleyebilirsiniz.

Büyük Dosyalar Gönderme - Dosya Paylaşımı - TransferNow

Transfer başına 250 GB'a kadar büyük dosyaları göndermek ve paylaşmak için en kolay, en hızlı ve en güvenli ücretsiz dosya aktarım çözümü. Kayıt gerekmez.

www.transfernow.net

Dosya Upload - Dosya Yükle indir

Ücretsiz olarak dosya upload edebileceğiniz dosya yükleme sitesi. Hızlı dosya yükle ve paylaş.

www.dosyaupload.com

Send Large Files - Any Size - Up To 5 GB Free - Filemail

Send large files of any size fast. Share files up to 5 GB free with no account required. Trusted on all platforms for secure file transfers and sharing.

www.filemail.com

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Teşekkürler,
https://www.dosyaupload.com/27pTh/Aylık_Bütçe_2024_-_Kopya_(2).xlsm

 

[oborono]

Örnek kısa bir dosyada gönderdim ama yardımcı olabilecek kimse çıkmadı!
Dosya üzerinde not ile ifade etmeye çalıştım. D3 den D14 e ve E3 den E14 hücrelerinde makro var, gerekirse bu makrolara da ilave edilebilir.
Mesela E4 hücresine tıkladığımda Sayfa "2.AY" a gidip Şubat ayının verilerini giriyorum.
Benim istediğim; E4 hücresine tıkladığımda hangi gün ise Sayfa "2.AY" da A sütununda sıralı olan Şubat ayının o günkü tarihini bulup sağındaki boş hücreyi seçmek.
Biliyorum bunu yapacak ustalar çok var, herhalde benim anlatmamda sorun var

Hata indir

Hata

www.dosyaupload.com