Kod Düzenlenmesinde Yardım
-
- 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
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.
-
- 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
Ö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
-
- 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
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
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 4 Cevaplar
- 1495 Görüntüleme
-
Son mesaj gönderen CENGİZHANTAHA
-
- 1 Cevaplar
- 2277 Görüntüleme
-
Son mesaj gönderen sahin
-
- 2 Cevaplar
- 2459 Görüntüleme
-
Son mesaj gönderen SNNAY
-
- 6 Cevaplar
- 1408 Görüntüleme
-
Son mesaj gönderen sahin
-
-
Buton İle yedek alma ve Kod, UserForm, Modul Silme ?
gönderen Beyfendi » » forum Genel Makro Paylaşımları - 7 Cevaplar
- 2525 Görüntüleme
-
Son mesaj gönderen erseldemirel
-