SÜtundakİ Bİlgİnİn BaŞka Sayfaya Aktarimi

[amelie]

Arkadaşlar Merhaba,
Ekteki dosyada kendimce çözüm bulmaya çalıştım ancak bir noktada tıkandım.
DRAFT sayfasındaki 2. sütunu AVERAGE sayfasındaki AVERAGE başlığı buluna sütundan önce kopyalamak istiyorum.Her Seferinde bir bu sütuna insert etmesi lazım...
Yardımlarınız için teşekkür ederim.
Saygılarımla.

 

[AS3434]

Sayın amelie

Aşağıdaki kodları butonunuza bağlayın.

Private Sub CommandButton1_Click()
Set s1 = Sheets("AVERAGE")
Set s2 = Sheets("DRAFT")
For i = 13 To 2 Step -1
If Cells(1, i) = "AVARAGE" Then
Columns(i).Insert shift:=xlToRight
s2.Range("B:B").Copy
Cells(1, i).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next
End Sub

NOT: Kodlarla ortalama alamıyorsunuz arada bir boşluk kalması lazım.
Dosyayı inceleyin.

 

[amelie]

Üstad teşekkür ederim eline zihnine sağlık.Ancak bir sorum daha olsa çok mu olur acaba? Kod çalıştıktan sonra formülü nasıl otomatik update edebilirim.?
Teşekkür ederim.