Makro kod yardımı

[Mehmet Sait]

Merhaba,

Aşağıda buluna kod ile; EY sütununda bulunan tarih ile G3 te bulunan tarih eşleşiyorsa D18 de buluanan veriyi aktarıyor.
Ancak tablomda D1825 arasında veriler olabiliyor.

İstediğim şu şekilde G3 te bulunan tarihi EY sutununda açsın ve 18:25 arasında bulunan verileri satır satır aktarsın. Aktarım hergün olduğundan bir önceki veriyi silmeden, yeni aktarımı EY sütununda bittiği yerden yazmalı.

Mümkün mü acaba ?

Yardımlarınız için teşekkür ederim.

Sub aktar()
Dim Bul As Range
    Set Bul = Range("EY:EY").Find(Range("$G$3"), , , xlWhole)
    If Not Bul Is Nothing Then
        If Range("M1") = Range("BZ126") Then
        Range("EZ" & Bul.Row) = Range("D18").Value
        Range("FA" & Bul.Row) = Range("F18").Value
        Range("FB" & Bul.Row) = Range("G18").Value
        Range("FC" & Bul.Row) = Range("I18").Value
        Range("FD" & Bul.Row) = Range("J18").Value
        Range("FE" & Bul.Row) = Range("K18").Value
        Range("FF" & Bul.Row) = Range("M18").Value
        Range("FG" & Bul.Row) = Range("N18").Value

        End If
    End If

End Sub

 

[Korhan Ayhan]

Merhabalar,

Linkteki konuda #9 nolu mesajımı okumanızı rica ediyorum.

Soru - Klasör altındaki dosyalara köprü ekleyen kodda yöntem değiştirme

Aşağıdaki kod için excelimde 2 ayrı buton var. G1 hücresinde bir dosya klasör yolu oluşturuyorum. Bu yol sürekli değişebiliyor. Kopyala butonuna basıp daha sonra çalıştır butonuna bastığımda dosya seçme ekranına yolu yapıştırıyorum. İstediğim şöyle birşey arkadaşlar, G1 hücresini kopyalamak...

www.excel.web.tr

 

[Mehmet Sait]

Merhabalar,

Linkteki konuda #9 nolu mesajımı okumanızı rica ediyorum.

Soru - Klasör altındaki dosyalara köprü ekleyen kodda yöntem değiştirme

Aşağıdaki kod için excelimde 2 ayrı buton var. G1 hücresinde bir dosya klasör yolu oluşturuyorum. Bu yol sürekli değişebiliyor. Kopyala butonuna basıp daha sonra çalıştır butonuna bastığımda dosya seçme ekranına yolu yapıştırıyorum. İstediğim şöyle birşey arkadaşlar, G1 hücresini kopyalamak...

www.excel.web.tr

Hocam, uyarınız için teşekkür ederim.