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...

 

[muratgunay48]

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

Tamamdır. Tekrar teşekkürler.

 

[Korhan Ayhan]

Bu da olabilir...

Sub Formula_Copy()
    Range("A1:A11,A13:A50").FillDown
End Sub

 

[mustafa1205]

Sub Formula_Copy() Range("A1:A11,A13:A50").FillDown End Sub

Hocam kısa ve öz olmuş. Elinize sağlık

 

[Korhan Ayhan]

Hocam kısa ve öz olmuş. Elinize sağlık

Amacım azıcık standartların dışına çıkarak bakış açısı kazandırmak. Umarım faydalı oluyordur.

 

[muratgunay48]

Bu da olabilir...

Sub Formula_Copy()
    Range("A1:A11,A13:A50").FillDown
End Sub

Hocam gerçekten anlaşılır ve kısa olmuş.
Emeğinize sağlık.