tablo düzenleme

[keman]

arkadaslar merhaba kolay gelsın

asagıdakı lınk te tablo yu sayfa 2 dekı formata getırmek ıstıyorum .yardımcı olabılırmısınız.iyi çalışmalar kolay gelsın



http://www.dosya.tc/server25/JOe11v/esco2.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Page1 den Sayfa1 formatına mı, yoksa tam tersi mi ?

. . .

 

[keman]

merhabalar huseyın bey

page 1 dekı verıler baz alınarak sayfa 1 dekı formata uyarlanacak

 

[Emir Hüseyin Çoban]

. . .

Kodları boş bir modüle yapıştırın.

Sub KOD()
    Application.ScreenUpdating = False
    Dim SP     As Worksheet
    Dim S1     As Worksheet
    Dim sat    As Integer
    Dim i      As Integer

    Set SP = Sheets("Page1")
    Set S1 = Sheets("Sayfa1")
    sat = 2

    S1.Range("A2:k65536").ClearContents

    For i = 28 To SP.[A65536].End(3).Row
        If SP.Cells(i, "A") <> "" And IsDate(SP.Cells(i, "A")) Then
            S1.Cells(sat, "A") = SP.Cells(i, "A")
            S1.Cells(sat, "B") = SP.Cells(i, "K")
            S1.Cells(sat, "C") = SP.Cells(i, "V")
            S1.Cells(sat, "D") = SP.Cells(i, "AC")
            S1.Cells(sat, "E") = SP.Cells(i, "AM")
            S1.Cells(sat, "F") = SP.Cells(i, "AP")
            S1.Cells(sat, "G") = SP.Cells(i, "AU")
            S1.Cells(sat, "H") = SP.Cells(i, "AY")
            S1.Cells(sat, "I") = SP.Cells(i, "BE")
            S1.Cells(sat, "J") = SP.Cells(i, "BG")
            S1.Cells(sat, "K") = SP.Cells(i, "BJ")
            sat = sat + 1
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[keman]

çok teşekkur ederım huseyın bey ellerınıze sağlık oldu.

 

[keman]

huseyın bey merhaba

çok teşekkur ederım ellerınıze sağlık .bir durum daha var ben o sayfa 1 dekı baslıklarında makroda gorunmesını ıstıyorum.yardımcı olurmusunuz.

 

[Emir Hüseyin Çoban]

. . .

Nasıl bir görünme istiyorsunuz anlamadım.

Şu şekilde olabilir mi.
sat = 2
S1.range("A1")="Tarih"
S1.range("B1")="Müşteri İsmi"
S1.Range("A2:k65536").ClearContents

. . .