makro ile diğer sayfadan veri çekmek

[şehiriçi]

Merhaba,

Arkadaşlar ,ekteki dosyam da ,sehirici sayfasında O3 hücresindeki numara, satko sayfasındaki satır numarasıdır.Bu satır numarası nın(O3=135) satko sayfasında aranıp bulunan satırın G sütunundaki değeri sehirici U3 hücresine makro ile yazdırmak istiyorum . indisle yapmak istedim ama aranan no satır olunca zorlandım .

 

[Greenblacksea53]

=İNDİS(satko!A:I;DOLAYLI("O3");7)

İndisi yanlış kullandın. Ekteki gibi kullanırsan sonuca ulaşırsın

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Long
    With Worksheets("sehirici")
        For Bak = 3 To .Cells(Rows.Count, "O").End(xlUp).Row
            .Cells(Bak, "U") = FormatDateTime(Worksheets("satko").Cells(.Cells(Bak, "O"), "G"), vbLongTime)
        Next
    End With
    MsgBox "Tamamlandı."
End Sub

 

[şehiriçi]

sayın greenblacksea5 teşekkür ederim ama ben makro ile istiyorum çünki gerçek dosya hep makrolu

 

[şehiriçi]

Sayın Muzaffer Ali buda işimi görüyor teşekkürler ama ben aslında , sadece renk sarı ile işaretlediklerimi yani Q sütunundada Belediye Evleri yazan satıra ait olanları istemiştim ,eline sağlık buda olmuş teşekkürler

 

[Muzaffer Ali]

Sayın Muzaffer Ali buda işimi görüyor teşekkürler ama ben aslında , sadece renk sarı ile işaretlediklerimi yani Q sütunundada Belediye Evleri yazan satıra ait olanları istemiştim ,eline sağlık buda olmuş teşekkürler

Sub test()
    Dim Bak As Long
    With Worksheets("sehirici")
        For Bak = 3 To .Cells(Rows.Count, "O").End(xlUp).Row
            If .Cells(Bak, "Q") = "Belediye Evleri" Then
                .Cells(Bak, "U") = FormatDateTime(Worksheets("satko").Cells(.Cells(Bak, "O"), "G"), vbLongTime)
            End If
        Next
    End With
    MsgBox "Tamamlandı."
End Sub

 

[şehiriçi]

Evet tamda bu Teşekkürler.

 

[canburak]

Sub test()
    Dim Bak As Long
    With Worksheets("sehirici")
        For Bak = 3 To .Cells(Rows.Count, "O").End(xlUp).Row
            If .Cells(Bak, "Q") = "Belediye Evleri" Then
                .Cells(Bak, "U") = FormatDateTime(Worksheets("satko").Cells(.Cells(Bak, "O"), "G"), vbLongTime)
            End If
        Next
    End With
    MsgBox "Tamamlandı."
End Sub

Merhabalar Yukarida yapmis oldugunuz makroyu ekteki dosyama nasil uyarlaya biliriz?
Data Sayfasinda ki P sutunu eger bos ise bos olan hucreleri
Kart sayfasindaki Ana("W" sutunu) ve Alt Hesap("X" Sutunu) Sutunlaridaki bilgiler data sayfasinda D ve E Sutun ile ayni ise Kart Sayfasindaki "U" sutunundaki kod verilerinin veri sayfasindaki "P" sununundaki bos hucrelere eslesenleri getirmesi lazim.

Simdiden yardimlariniz icin tesekkurler.

 

[Muzaffer Ali]

Merhabalar Yukarida yapmis oldugunuz makroyu ekteki dosyama nasil uyarlaya biliriz?
Data Sayfasinda ki P sutunu eger bos ise bos olan hucreleri
Kart sayfasindaki Ana("W" sutunu) ve Alt Hesap("X" Sutunu) Sutunlaridaki bilgiler data sayfasinda D ve E Sutun ile ayni ise Kart Sayfasindaki "U" sutunundaki kod verilerinin veri sayfasindaki "P" sununundaki bos hucrelere eslesenleri getirmesi lazim.

Simdiden yardimlariniz icin tesekkurler.

Sorularınızı yeni bir başlık altında sorarsanız daha iyi olur.
Aşağıdaki kodları kullanın.

Sub test()
    Dim Bak As Long, BakKod As Long
    Dim syfKart As Worksheet
    Set syfKart = Worksheets("kart")
    With Worksheets("Data")
        For Bak = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
            If .Cells(Bak, "P") = "" Then
                For BakKod = 2 To syfKart.Cells(Rows.Count, "W").End(xlUp).Row
                    If syfKart.Cells(BakKod, "W") = .Cells(Bak, "D") And syfKart.Cells(BakKod, "X") = .Cells(Bak, "E") Then
                        .Cells(Bak, "P") = syfKart.Cells(BakKod, "U")
                        Exit For
                    End If
                Next
            End If
        Next
    End With
    MsgBox "Tamamlandi."
End Sub

 

[canburak]

Sorularınızı yeni bir başlık altında sorarsanız daha iyi olur.
Aşağıdaki kodları kullanın.

Sub test()
    Dim Bak As Long, BakKod As Long
    Dim syfKart As Worksheet
    Set syfKart = Worksheets("kart")
    With Worksheets("Data")
        For Bak = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
            If .Cells(Bak, "P") = "" Then
                For BakKod = 2 To syfKart.Cells(Rows.Count, "W").End(xlUp).Row
                    If syfKart.Cells(BakKod, "W") = .Cells(Bak, "D") And syfKart.Cells(BakKod, "X") = .Cells(Bak, "E") Then
                        .Cells(Bak, "P") = syfKart.Cells(BakKod, "U")
                        Exit For
                    End If
                Next
            End If
        Next
    End With
    MsgBox "Tamamlandi."
End Sub

Ustat guzel olmus elinize saglik, Cok tesekkurler

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[canburak]

Rica ederim. Kolay gelsin.

Ustat bu verilere textbox lar ekledim active hucreleri kullanarak ama biraz sorunlarim var onlari nasil coze biliriz, ekledigim dosyada yanlarina sorunlarini yazdim,
yardimlariniz icin simdiden tesekkurler.

 

[Muzaffer Ali]

Lütfen uyarıları dikkate alınız.
Yukarıda şöyle söylemiştim.

Sorularınızı yeni bir başlık altında sorarsanız daha iyi olur.

 

[canburak]

Lütfen uyarıları dikkate alınız.
Yukarıda şöyle söylemiştim.

tamamdir kusura bakmayin. yeni konu olarak ekledim ,