Aralık belirleyip başka bir sayfaya kopyalama vba

[Gamma]

Merhaba
Asagidaki işlemi vba da Yapmaya çalışıyorum ama başaramadım.yardimci olabilirseniz çok sevinirim.
.sheet1 de yer alan a15:z15 aralığındaki maximum değere sahip hücreye belirleyip
.bu hücrenin üzerinde yer alan aynı sutunda (örneğin eger max deger s15de ise s1:s14 de )yer alan 14 hucreyi sheet2 de yer alan a1:a14 aralığına kopyalama.

Ilgilenen arkadaslara şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, Bul As Range, Maksimum As Variant
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
    Maksimum = WorksheetFunction.Max(S1.Range("A15:Z15"))
    Set Bul = S1.Range("A15:Z15").Find(Maksimum, , xlValues, xlWhole)
    If Not Bul Is Nothing Then
        S1.Cells(1, Bul.Column).Resize(14).Copy S2.Range("A1")
    End If
End Sub

 

[Gamma]

Çok çok teşekkür ederim Sayın Korhan. Program gayet güzel çalışıyor ama daha önce yazdığım kodların altına eklediğimde bir sonuç alamıyorum malesef. Sanırım birşeyi gözden kaçırıyor ama henüz bulamadım.

 

[Gamma]

Sorunu belirledim sanırım Korhan bey.maksimumun bulunacağı alan içindeki değerler tamsayı olduğunda kod çalışıyor ancak bendeki değerler bir hesaplama nin sonucu olduğu icin virgulden sonra çok sayıda (kaç adet olduğu belirsiz) basamak içeriyor. Sizce çözüm ne olabilir? Kodda dim maksimum as duble yaptım sonuç yine değişmedi.
Ilgıniz için tekrar teşekkür ederim

 

[Gamma]

Değişken tipi long olarak degistirildiginde sorun ortadan kalktı. Çok çok tesekkurler.