Satır atlatarak sürükleme

[muratgunay48]

Arkadaşlar, sayın hocalarım, örnek dosyada olduğu gibi, A1'deki formülü 50 satır boyunca aşağı çeksin ama 12. Satırı atlasın.
Bunu nasıl yapabilirim.
Makro ile de olabilir tabi. Ben bu şekilde düşündüm sadece.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[mustafa1205]

Örnek Dosya Eklemeyi unutmuşsunuz sanırım

 

[volki_112]

Arkadaşlar, sayın hocalarım, örnek dosyada olduğu gibi, A1'deki formülü 50 satır boyunca aşağı çeksin ama 12. Satırı atlasın.
Bunu nasıl yapabilirim.
Makro ile de olabilir tabi. Ben bu şekilde düşündüm sadece.
Şimdiden teşekkür ederim.
Saygılarımla.

12 satirda veriler formullu mi ne yaziyor 12.satirda

 

[mustafa1205]

Sub FormuleriKopyalaVeAtla()
Dim i As Long
Dim ws As Worksheet
Set ws = ActiveSheet ' İstersen ws = Sheets("Sayfa1") yapabilirsin

For i = 2 To 50
If i <> 12 Then
ws.Cells(i, 1).Formula = ws.Cells(1, 1).Formula
End If
Next i
End Sub

Deneyiniz.....

 

[muratgunay48]

12 satirda veriler formullu mi ne yaziyor 12.satirda

Boş hocam. Sadece 12. Satır dolu.

 

[muratgunay48]

Sub FormuleriKopyalaVeAtla()
Dim i As Long
Dim ws As Worksheet
Set ws = ActiveSheet ' İstersen ws = Sheets("Sayfa1") yapabilirsin

For i = 2 To 50
If i <> 12 Then
ws.Cells(i, 1).Formula = ws.Cells(1, 1).Formula
End If
Next i
End Sub

Deneyiniz.....

Hocam çok teşekkür ederim. Emeğinize sağlık.

 

[muratgunay48]

Sub FormuleriKopyalaVeAtla()
Dim i As Long
Dim ws As Worksheet
Set ws = ActiveSheet ' İstersen ws = Sheets("Sayfa1") yapabilirsin

For i = 2 To 50
If i <> 12 Then
ws.Cells(i, 1).Formula = ws.Cells(1, 1).Formula
End If
Next i
End Sub

Deneyiniz.....

Hocam sürekli B1 ve C1 çarpıyor. Ben mi hata yaptım acaba.

 

[mustafa1205]

Haklısınız aynı yapıyor. Düzeltilmiş Hali ektedir. Kontrol edersiniz...

 

[muratgunay48]

Haklısınız aynı yapıyor. Düzeltilmiş Hali ektedir. Kontrol edersiniz...

Çok teşekkür ederim hocam. Emeğinize sağlık. Modülde kullanmanın sakıncası yok sanırım.

 

[mustafa1205]

Rica ederim. Umarım olmuştur. Modülde kullandığınızda çalışacak sayfa adını girmeyi unutmayınız...