Formülü makro'ya çevirmek

[M.ACAR]

İyi akşamlar; hayırlı Ramazanlar
Ekli dosya'da kalıp sayfasına Dolaylı formülü ile diğer sayfalardaki bilgileri alıyorum;Fakat devamında kullandığım formüllerde hata veriyor;Bu yüzden dolaylı formülü ile diğer sayfalardan veri alma işlemini makro ile yapmak istiyorum,Bu konuda yardımcı olurmusunuz,şimdiden teşekkür ederim.

 

[M.ACAR]

Formülün makroya dönüşümü hakkında yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. B1 hücresine ay adını girip deneyin.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SAYFA As Worksheet, KONTROL As Boolean
    
    On Error GoTo Son
    
    If Target.Address <> "$B$1" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    With Range("C1:CD1,C2:CD2,A3:CD33")
        .ClearContents
    End With
    
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Name = Target Then
            KONTROL = True
            Exit For
        End If
    Next
    
    If KONTROL = True Then
        With Range("C1:CD1")
            .ClearContents
            .FormulaR1C1 = "=INDIRECT(R1C2&""!""&ADDRESS(ROW(RC),COLUMN(RC)))"
            .Value = .Value
        End With
        
        With Range("C2:CD2")
            .ClearContents
            .FormulaR1C1 = "=INDIRECT(R1C2&""!""&ADDRESS(ROW(RC),COLUMN(RC)))"
            .Value = .Value
        End With
        
        With Range("A3:CD33")
            .ClearContents
            .FormulaR1C1 = "=INDIRECT(R1C2&""!""&ADDRESS(ROW(RC),COLUMN(RC)))"
            .Value = .Value
        End With
    Else
        MsgBox Target & " isimli sayfa bulunamadı !" & vbNewLine & "Veri aktarımı iptal edilmiştir !", vbCritical
    End If
 
Son:
    Application.ScreenUpdating = True
End Sub

 

[kemalist]

Dosya içindeki formülü makroyla nasıl uygulayabiliriz?açıklama dosya içindedir.ilginiz için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Sn. kemalist aşağıdaki linkte cevabınızı verdim. Lütfen ayrı başlıklar altında aynı sorunuzu tekrar tekrar sormayınız.

http://www.excel.web.tr/showthread.php?p=482093

 

[M.ACAR]

Sayın : Korhan hocam öncelikle yardımınız için çok teşekkür ederim,Sizden bir isteğim daha olacak B1 hücresine Aylar'ı elle değilde başka sayfa'dan açılır liste ile yazdırmak ve makronun bu şekilde çalışması için değişiklik hakkında yardımcı olurmusunuz,

 

[M.ACAR]

Bu konuda yardımcı olurmusunuz

 

[Korhan Ayhan]

Selamlar,

Veri Doğrulama uygulanmış ekteki örnek dosyayı incelermisiniz.

 

[M.ACAR]

Sayın : Korhan hocam yardımınız için çok teşekkür ederim;Hayırlı günler.