Skip to main content

AccessTr.neT


Excel Tablosundaki Veriyi Sol Tarftaki Örnekteki Gibi Tersine Çevir Yapmak İstiyrm

Excel Tablosundaki Veriyi Sol Tarftaki Örnekteki Gibi Tersine Çevir Yapmak İstiyrm

Çözüldü #1
merhaba arkadaşlar,

eklediğim örneğin benzeri birçok dosyam var.



1)tablodaki veriyi tersine çevirerek alt alta liste oluşturmak istiyorum,

2)alt alta olan veriyi düzenleme yaptıktan sonra tekrar yanyana 10'arlı liste oluşturmak istiyorum. ( eskisi gibi)

yardımcı olabilirmisiniz?
.rar excl soru.rar (Dosya Boyutu: 10,47 KB | İndirme Sayısı: 6)
Son Düzenleme: 30/12/2022, 09:28, Düzenleyen: alikagan.
Cevapla
#2
Turuncu alanin büyüklüğü ve konumu sabit mi?
Kastettiğim sütun sayısı ve verilerin olduğu sütunlar
Cevapla
#3
(30/12/2022, 10:09)berduş yazdı: Turuncu alanin büyüklüğü ve konumu sabit mi?
Kastettiğim sütun sayısı ve verilerin olduğu sütunlar

konumu sabit ama veri alt alta fazla olabiliyor.
Cevapla
#4
1. isteğiniz dikey yapma kodu
Function VeriDikey()
Set Syf = ThisWorkbook.Worksheets("sayfa1")
With Syf
'.Range("A:A").ClearContents
lr = .Cells(Syf.Rows.Count, "G").End(xlUp).Row
xDzK = .Range("G3:P" & lr).Value2
Dim xDzH As Variant
xByt = UBound(xDzK, 1) * UBound(xDzK, 2)
ReDim xDzH(1 To xByt, 0)
For xStr = 1 To UBound(xDzK, 1)
For xStn = 1 To UBound(xDzK, 2)
' Debug.Print xDzK(xStr, xStn)
d = d + 1
xDzH(d, 0) = xDzK(xStr, xStn)
Next xStn
Next xStr
.Range("A3:A" & 2 + xByt) = xDzH
'.Range("G3:P" & lr).ClearContents
End With
End Function
2. isteğiniz yan yana 10arlı liste
Function VeriRange()
Set Syf = ThisWorkbook.Worksheets("sayfa1")
With Syf
lr = .Cells(Syf.Rows.Count, "A").End(xlUp).Row
xDzK = .Range("A3:A" & lr).Value2
Dim xDzH As Variant
xStrSay = Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count 'Int(UBound(xDzK, 1) / 10) '+ 1
ReDim xDzH(0 To xStrSay, 9)
For x = 0 To UBound(xDzK, 1) - 1
If Len(xDzK(x + 1, 1) & "") <> 0 Then
xStn = y Mod 10
xStr = (y \ 10)
xDzH(xStr, xStn) = xDzK(x + 1, 1)
y = y + 1
End If
Next x
.Range("G3:P" & 3 + xStrSay) = xDzH
End With
End Function
Cevapla
#5
çok teşekkür ederim, sayenizde tamamdır.
Cevapla
#6
Rica ederim
İyi çalışmalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task