Kod Düzenlenmesinde Yardım

Cevapla
CENGİZHANTAHA
Mesajlar: 4
Kayıt: Prş Tem 13, 2023 1:47 pm
Lokasyon: SAKARYA
Adınız: İsmail
Soyadınız: TAHİROĞLU

Kod Düzenlenmesinde Yardım

Mesaj gönderen CENGİZHANTAHA »

Kolay gelsin üstadlarım. Tablo üzerinde değişiklik yaparak diğer sayfaya aktarma konusunda yardımlarınızı bekliyorum. Şimdiden teşekkür ederim.
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
erseldemirel
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Kod Düzenlenmesinde Yardım

Mesaj gönderen erseldemirel »

Örnek transpoze kodu. Geliştirmeniz lazım

Kod: Tümünü seç

Sub Transpose()
sourceRanges = Array("C4:N4", "C2:N2", "A4:A4")
destinationRanges = Array("S2", "R2", "Q2")
For i = LBound(sourceRanges) To UBound(sourceRanges)
Set sourceRange = ThisWorkbook.Sheets("Sayfa1").Range(sourceRanges(i))
Set destinationRange = ThisWorkbook.Sheets("Sayfa1").Range(destinationRanges(i))
destinationRange.Resize(sourceRange.Columns.Count, sourceRange.Rows.Count).Value = WorksheetFunction.Transpose(sourceRange.Value)
Next i
Range("A1").Select
End Sub
veyselemre
Mesajlar: 1
Kayıt: Sal Haz 27, 2023 2:33 pm
Lokasyon: ANKARA-ÇUBUK
Adınız: VEYSEL
Soyadınız: EMRE

Re: Kod Düzenlenmesinde Yardım

Mesaj gönderen veyselemre »

Kod: Tümünü seç

Sub test()
    Dim values, i, ii, say, liste, son
    son = 18 ' Cells(Rows.Count, 1).End(3).Row
    values = Range("A2:N" & son).Value
    ReDim liste(1 To (son - 3) * 12, 1 To 3)
    For i = 3 To UBound(values)
        For ii = 3 To 14
            say = say + 1
            liste(say, 1) = values(i, 1)
            liste(say, 2) = values(1, ii)
            liste(say, 3) = values(i, ii)
        Next ii
    Next i
    Range("P3").Resize(UBound(liste), 3).Value = liste
End Sub
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj