tarih -satır sorunu

[aatoş]

merhabalar...

Şansımı bir kez daha zorlayacağım....Kaç gündür takip ediyorum ama bir türlü cevap gelmedi.sorun dosyada mı yoksa ben mi eksik anlattım.Ustalarımız için çok basit çözümü eminim.

"ANA" Sayfasına tarih girdigim zaman diger sayfalardaki dosyaların içinden o tariha ait bilgilerin gelmesi.(satır ve sütünu macroda oturtamıyorum)İLGİLERİNİZİ VE YARDIMLARINIZ BEKLİYORUM.İNANIN İŞİMİ ÇOK KOLAYLAŞTIRACAKSINIZ ...TEŞEKKÜRLER

 

[Ömer]

Merhaba,

Sorunuz net değil, bu yüzden cevap alamamış olursunuz.

Ana sayfada E3 hücresine tarih girdiğiniz de isim adı verdiğiniz sayfaların hangi sütununda bu tarihi arayacak ve hangi sütunun Ana sayfada hangi sütunla eşleşecek.

Örneğin,

Ana sayfa A sütununda diğer sayfadaki hangi sütun gelecek. Bu şekilde tüm sütunların eşleşmesini yazarmısınız.

.

 

[aatoş]

Satır sütün

MERHABALAR ÖMER BEY..

Öncelikle ilginiz gerçekden beni memnun etti.Teşekkürler..

yapmak istedigim şu.ben "ANA" sayfasına tarih girdigim zaman (BU DİGER SAYFALARDAKİ DOSYALARIN DÖNEM TARİHİDİR)bana diger sayfalardaki bilgileri getirmesi.Kısacası "dönem tarihine" göre ana sayfaya bilgi dökmek istiyorum.

örnegin.15/04/2010 e3 hücresine girdigim zaman hüseyin...efe,, gibi sayfalarda
14 satırdaki tarihlere(DÖNEM TARİHİNe) bakarak o sayfanın içinde hangi dosyada o tarih varsa ana ekrana icra bilgilerini dökmek.ben bunu 15/04/2010 tam getiriyorum ama diyelim ki başka bir tarih verdigimde diyelim ki 15/11/2011 ana ekranında dosya'ya ait dosya nosu icra adı gibi bilgilerini kaydırıyor.

sanırım macrodaki başlattığım satır numarasından kaynaklanıyor...

 

[Ömer]

Kodları değiştirdim, bu şekilde daha hızlı çalışır.

Sub BulAktar()
 
    Dim c As Range, Adr As Variant, sat As Long, i As Integer
 
    Sheets("ANA").Select
    If Range("E3") = "" Then MsgBox "Aranacak Değeri Girin": Exit Sub
 
    Application.ScreenUpdating = False
 
    sat = 7: Range("A" & sat, "J" & Rows.Count).ClearContents
    For i = 1 To Worksheets.Count
      If Not Sheets(i).Name = "ANA" Then
        With Sheets(i).Range("C13:BW" & Rows.Count)
           Set c = .Find(Range("E3"), , xlValues, xlWhole)
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                  With Sheets(i)
                    Cells(sat, "A") = .Range("B4")
                    Cells(sat, "B") = .Range("B5")
                    Cells(sat, "C") = .Range("B6")
                    Cells(sat, "D") = .Range("B2")
                    Cells(sat, "E") = .Range("B7")
                    Cells(sat, "F") = .Cells(2, c.Column + 2)
                    Cells(sat, "G") = .Cells(5, c.Column + 2)
                    Cells(sat, "H") = [COLOR=red].Cells(c.Row, c.Column + 1) _[/COLOR]
[COLOR=red]                                    + Cells(sat, "H")                    [/COLOR]
                    Cells(sat, "I") = .Cells(4, c.Column + 2)
                  End With
                  sat = sat + 1
                Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
      End If
    Next i
 
    Application.ScreenUpdating = True
    Set c = Nothing
    MsgBox "Aktarma Tamam", , "excel.web.tr"
 
End Sub

.

 

[aatoş]

satırbulma

merhaba ÖMER BEY...

HER ŞEY İÇİN TEŞEKKÜRLER.SÜPERSİNİZ .Bana göre hem bu taraf .hemde öbür taraf için kazanıyorsunuz.Çok dua aldığınıza eminim.Hakkınızı helal edin.elinize sağlık.Ne kadar yardımcı olduğunuzu bir bilseniz..HER ŞEY GÖNLÜNÜZCE OLSUN...

HER ŞEY TAMAM YALNIZ "ANA"SAYFADAKİ KESİNTİ TUTARI H SÜTUNUNA,SAYFALARDAKİ "DÖNEMİN TUTARI" GELEBİLİR Mİ?(BENİM EKSİKLİĞİM).DÖNEM TARİHİNİN KARŞISINDAKİ TUTAR.BU DEGİŞİKLİGİ NASIL KODLA DÜZELTEBİLİRİM....

 

[Ömer]

Rica ederim. Yardımcı olabiliyorsam ne mutlu.

#4 numaralı mesajı değiştirdim. Tekrar deneyiniz.

.