Farklı Sayfadaki verilerin Bazı Hücrelerin seçilerek alınması

[misnet]

Sayın Hocam Merhaba

EKTEKİ ("Ekipman") sayfasındaki K3 Hücresine tarih yazıp, Aktar Butonuna bastığımızda, bu tarihe ait "Resmi" sayfasındaki bilgileri DSİ NO na göre bu sayfadaki aracın yanındaki boş hücrelere yazacak, (ÖRNEKTEKİ GİBİ) karşısında bilgisi olmayanlar boş kalacak şekilde bir makro yazabilirmiyiz.

Mümkünmüdür acaba Teşekkür Ederim. Saygılar....

 

[İhsan Tank]

Merhaba
Sizin renklendirdiğiniz bölüm mü gelecek_?

 

[misnet]

hayır hocam genel olarak "Resmi "Sayfasındaki bilgiler gelecek

 

[İhsan Tank]

hayır hocam genel olarak "Resmi "Sayfasındaki bilgiler gelecek

O zaman açıklama yeterli değil neye göre hangi verileri getirecek biraz daha açıklama

 

[misnet]

hocam bir türlü cümle kuramadım. mesai bitti yarın sizi tekrar arayacağım. İş yerindeyimde teşekkürler.

 

[misnet]

Listeden istenilen sütunları başka sayfaya aktarma konusuna cevap

Sayın Hocam, Konuyu örnekte açıklamaya çalıştım.

 

[İhsan Tank]

Syn : Misnet
Verilerin hangi sütununa gideceği belli değil başlıklar birbirini tutmuyor sanki siz kırmızıya boyadığınız yerlerin verilerinide girin öyle bakayım. Belki sorun bendedir biraz yoğunluk var da

 

[misnet]

Listeden istenilen sütunları başka sayfaya aktarma konusuna cevap

İstediğiniz verileri ekledim hocam. Sizide yordum hakkınızı helal edin.

 

[İhsan Tank]

İstediğiniz verileri ekledim hocam. Sizide yordum hakkınızı helal edin.

Merhaba
Ekipman sayfasının kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub CommandButton1_Click()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim s1, s2
Set s1 = Sheets("Resmi")
Set s2 = Sheets("Ekipman")
trabzonspor = MsgBox(Format(s2.Range("K3"), "dd.mm.yyyy") & " Tarihli" _
& " Verileri Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For kaplan = 6 To s2.Cells(Rows.Count, "A").End(xlUp).Row
For ts = 3 To s1.Cells(Rows.Count, "A").End(xlUp).Row
If s1.Cells(ts, "B") = s2.Range("K3") And _
s1.Cells(ts, "C") = s2.Cells(kaplan, "A") Then
s2.Cells(kaplan, "G") = s1.Cells(ts, "B")
s2.Cells(kaplan, "H") = s1.Cells(ts, "E")
s2.Cells(kaplan, "I") = s1.Cells(ts, "F")
s2.Cells(kaplan, "J") = s1.Cells(ts, "G")
s2.Cells(kaplan, "K") = s1.Cells(ts, "H")
s2.Cells(kaplan, "L") = s1.Cells(ts, "I")
s2.Cells(kaplan, "M") = s1.Cells(ts, "J")
End If
Next
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede " & Format(s2.Range("K3"), "dd.mm.yyyy") & " Verileri Aktardım", , "Bitiş"
End Sub

 

[misnet]

İhsan Hocam tarihi değiştirdiğim zaman bir önceki bilgilerin silinmesi lazım. sadece son yazdığım tarih kalacak. Diğer kısımları tamamen istediğim gibi olmuş. elinize sağlık.

 

[misnet]

Hallettim hocam her şey için teşekkürler

 

[İhsan Tank]

Hallettim hocam her şey için teşekkürler

Rica ederim
:keyif:

 

[misnet]

Dosya paylaştırma

İhsan Hocam Fazla olmazsam eğer bir soru daha sormak istiyorum. Ekli dosyada açıkladım. mümkünmüdür acaba uğraştım ama yapamadım.

 

[İhsan Tank]

İhsan Hocam Fazla olmazsam eğer bir soru daha sormak istiyorum. Ekli dosyada açıkladım. mümkünmüdür acaba uğraştım ama yapamadım.

Sorunuzun bu konu ile alakası bulunmuyor lütfen yeni bir konu açarak sorunuzu sorunuz

 

[misnet]

Açtım hocam teşekkürler