1 satır alta kaydırma işlemi

[luckyxus]

Excel tablosunda 100 satur uzunluğunda veri var diyelim.5. satırdan itibaren alttaki veriler 1 alta kaydırılarak 5. satıra başka bir veri girilecek.bu işlem kes kopyala yapılarak yapılabiliyor fakat formullerin değişmemesini istiyorum.Kes deyince formul siliniyor ve alta geçen satırlara yanlış formul kopyalanıyor.

 

[luckyxus]

Kesilen hücreleri ekle diyip 2 satır altını seçtiğimde ise istediğim oluyor fakat düşeyara formulu yazılmış diğer sayfalarda boş hücrelerde #başv! yazıyor.

 

[N.Ziya Hiçdurmaz]

yanıt

Düşey ara formülünü vba ile uygulayabilirsiniz.

Sub duseyara()
On Error Resume Next
For sut = 5 To 1000
Range("B" & sut) = WorksheetFunction.VLookup(Range("A" & sut), Range("D:F"), 2, 0)
Range("C" & sut) = WorksheetFunction.VLookup(Range("A" & sut), Range("D:F"), 3, 0)
If Range("a" & sut) = "" Then Exit For
Next
End Sub

 

[BuRacK]

Teşekkürler...V.Basic For Applications