- Katılım
- 21 Aralık 2014
- Mesajlar
- 26
- Excel Vers. ve Dili
- excel 2003
Merhaba, şu konuyu çözemedim. Yardımcı olursanız çok sevinirim.
Aşağıdaki kodda tarih sutununun son hücresinin altına üstteki satırı kopyala formülü yazıp, sonra tablonun sonuna kadar formülü kopyalamak istiyorum.(b82 den b244'e kadar)
Tarih sutununun son hücresi 42. satırda. Tablo ise 214 satır.
b82 yerine tarihsonsatir, b214 yerine tablosonsatir yazmak istiyorum. Yardımınız için şimdiden çok teşekkür ederim.
Dim tarihsonsatir
Dim tablosonsatir
Range("b2:b" & sonsatir+1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C"
Selection.AutoFill Destination:=Range("B82:B214")
Aşağıdaki kodda tarih sutununun son hücresinin altına üstteki satırı kopyala formülü yazıp, sonra tablonun sonuna kadar formülü kopyalamak istiyorum.(b82 den b244'e kadar)
Tarih sutununun son hücresi 42. satırda. Tablo ise 214 satır.
b82 yerine tarihsonsatir, b214 yerine tablosonsatir yazmak istiyorum. Yardımınız için şimdiden çok teşekkür ederim.
Dim tarihsonsatir
Dim tablosonsatir
Range("b2:b" & sonsatir+1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C"
Selection.AutoFill Destination:=Range("B82:B214")