Ders notlarını Düşeyara ve Macro ile liste oluşturma

[yyhy]

Ders notlarını Düşeyara ve Macro ile liste oluşturabilir miyiz? Yardımcı olacak arkadaşlara şimdiden teşekkürler. Formül kısmını oluşturduk ama arkadaşlardan eksiğimiz varsa düzeltebilirlerse memnun kalırız. Teşekkürler.

 

[Muhammet Okumuş]

Merhaba,

Sub Aktar()
If Range("T2") = 6 Then Range("L9:L33") = Range("V9:V33").Value
End Sub

Bu mantıkla yapabilirsiniz.

 

[Ömer BARAN]

Merhaba, umarım yanlış anlamıyorumdur.

Sorunuzda muallakta olan kısımlar var. Şöyleki:
-- veri yapıştırılacak sütunda önceden veri yapıştırılmış/yazılmış durumda ise ne olacak?
-- değer değiştirme düğmesini kullanarak daha önce yapıştırılmış olan ilgili sütundaki veriler duruyorken,
aynı değerler bu kez başka sütuna yapıştırılmış olmayacak mı?
(Örneğin V sütunundaki verileri önce 3 no'lu sütuna yapıştırdınız, sonra düğme kullanarak sayıyı 4 yaptınız,
aynı veri hem 3 hem de 4 numaralı sütunda olmayacak mı, işlem doğru mu?)

Bunları netleştirirseniz kod'a ilave yapılabilir.

Aşağıdaki MakroV ile T5'teki değer değiştirme düğmesini, MaroW ile de W5'teki değer düğmesini ilişkilendirin.
.

[B][COLOR="blue"]Sub Makro[COLOR="Red"][SIZE="4"]V[/SIZE][/COLOR]()[/COLOR][/B]
    sut = [T2] + 6: kaynak = "V9:V33"
    hedef = Range(Cells(9, sut), Cells(33, sut)).Address
    Range(kaynak).Copy: Range(hedef).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False: Cells(8, sut).Activate
[B][COLOR="blue"]End Sub

Sub Makro[COLOR="red"][SIZE="4"]W[/SIZE][/COLOR]()[/COLOR][/B]
    sut = [W2] + 6: kaynak = "W9:W33"
    hedef = Range(Cells(9, sut), Cells(33, sut)).Address
    Range(kaynak).Copy: Range(hedef).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False: Cells(8, sut).Activate
[B][COLOR="Blue"]End Sub[/COLOR][/B]

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[yyhy]

Arkadaşlar teşekkür ederim tam istediğim şekilde olmuş. Elleriniz dert görmesin.