Satırı Sütüna&Sütunu Satıra çevirme

[otekesa]

Satırı Sütüna&Sütunu Satıra çevirme silinmiştir

Soru silinmiştir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir Modüle kopyalayıp deneyiniz.

Sub TabloOlustur()
    
    Dim i   As Long, _
        j   As Integer
    
    Application.ScreenUpdating = False
    
    Range("J2:L8").ClearContents
    
    Range("B1:H1").Copy
    Range("J2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    For j = 2 To 8
        Cells(j, "K") = Application.WorksheetFunction.Max(Range(Cells(2, j), Cells(i, j)))
        Cells(j, "L") = Application.WorksheetFunction.Min(Range(Cells(2, j), Cells(i, j)))
    Next j
    
    Range("J9").Activate
    Application.ScreenUpdating = True
    MsgBox "Tablo Oluşturulmuştur....", vbInformation, "N. YEŞERTENER"
    
End Sub

 

[otekesa]

Soru silinmiştir.

 

[Necdet]

Necdet Bey;
Bayramda değerli vaktinizi ayırıp sorumu cevapladığınız için ilginize çok teşekkür ederim.
Ayrıca bayramınızı kutlarım.

Saygılar.

Rica ederim, bende sizin bayramınızı kutlarım.

Güle güle kullanınız.

 

[otekesa]

Soru silinmiştir.

 

[otekesa]

Soru silinmiştir.