sayfadaki hücreye bakarak kolunun tamamını çağırma

[catalinastrap]

Merhabalar Sayfa2 de a2,b2,c2,d2 hücresinde yazan ifadeyi Örneğin a2 ifadesi Sayfa1 deki a2 ile tanımlanmış kolondaki dataları ifade ediyor bir buton yardımı ile Sayfa1 deki datayı Sayfa ikideki alana getirebilirmiyiz

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub DegerAl()

    Dim S1 As Worksheet, i As Byte, c As Range, son As Long
    
    Set S1 = Sheets("Sayfa1")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
    Range("A3:IV" & Rows.Count).ClearContents
    
    For i = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
        Set c = S1.Rows(1).Find(Cells(2, i), , xlValues, xlWhole)
        If Not c Is Nothing Then
            son = S1.Cells(Rows.Count, c.Column).End(xlUp).Row
            S1.Cells(2, c.Column).Resize(son, 1).Copy Cells(3, i)
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[catalinastrap]

çok teşekkür ederim ömer hocam süpersiniz.

 

[catalinastrap]

Merhaba Ömer Hocam,
Bir geliştirmeye daha ihtiyacım oldu

ekteki dosyamda sayfa 1 deki dataların

sayfa 2 ye belli kurallarla akıtmak istiyorum şöyleki.

(sayfa1 deki sarı ile işaretli tarih aralığı 1 haftayı tanımlıyor paraztesiden-pazara kadar pazar dahil)
Sayfa2 ye hafta kısmına ekteki örnekteki gibi B2 hücresine(23) yazdığımda 23.haftayı bulup günlerini getirmeli A3;C3 aralığındaki gibi

daha sonra ilgili tarih aralığına bakarak (sayfa1) deki data alanından 1,2,3,0 bu alanda dört tip kodlama var her kod bir vardiyayı temsil ediyor ekte detay olarak yazdım.Yani ilgili 7 güne bakacak kişileri ,bölümleri ve durakları ile beraber aktaracak.

Dört bölümden oluşuyor ancak data büyüklüğüne göre bu aralıklar daralıp genişleyebilir olmalı


şimdiden çok teşekkür ediyorum


umarım tam olarak açıklayabilmişimdir

 

[catalinastrap]

ek ilave edildi