DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub AKTAR()
Dim S1, S2, X, Y, Satir
Set S1 = Sheets("örnek")
Set S2 = Sheets("istediğim")
Satir = 2
S2.Range("A2:C" & Rows.Count).ClearContents
For Y = 2 To 7
For X = 2 To 6
S2.Cells(Satir, 1) = S1.Cells(X, 1)
S2.Cells(Satir, 2) = S1.Cells(X, Y)
S2.Cells(Satir, 3) = S1.Cells(1, Y)
Satir = Satir + 1
Next
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Sub FormatiDegistir()
c = 2
Sayfa2.[a:c].Clear
Set urun = Sayfa1.[a2:a6]
For i = 1 To 7
Sayfa2.Range("a" & c & ":a" & c + 4) = urun.Value
Sayfa2.Range("b" & c & ":b" & c + 4) = urun.Offset(0, i).Value
Sayfa2.Range("c" & c & ":c" & c + 4) = Sayfa1.Cells(1, i + 1)
c = c + 5
Next
MsgBox "Bitti"
End Sub
Merhaba,
İşyerinde karşılaştığım bir sorun hakkında yardımlarınızı çok rica ediyorum. Ekte gönderdiğim excelde özet tablo oluşturmak istiyorum. Ancak iskontolar sütunundaki 55+5+2 gibi olan hücreleri özet tabloda görüntüleyemiyorum. Ya en büyük ya en küçük ya başka bişi getiriyor. Benim istediğim o hücrede ne görüyorsa onu getirmesi. Yani özet tabloda değerler kısmında 55+5+2 nin toplamını en küçüğünü yada en büyüğünü değilde, tam tamına 55+5+2 yazmasını istiyorum. Nasıl yapılır bir türlü çözemedim. Yardımcı olursanız çok minnettar kalırım