Her 14 satırda 1 Belirli bir veriyi yazdırma

[u.L.a.s]

B sütununda 1. satır başlık satırıdır. 2. satırdan itibaren verilerimin olduğu satırdır. 15. Satırdan itibaren başlayarak her 14 satırda bir hücre içeriğine "Kilit" verisini yazdıracak bir makroya ihtiyacım var

bilgi ve yardımlarınızı rica ederim

B15 ten başlayıp B26657 de son bulacak şekilde 14 satır atlayarak "Kilit" yazsın istiyorum

 

[Ömer BARAN]

Merhaba.

-- alt taraftan, işlemin yapılmasını istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın,
-- OK tuşlarını kullanarak imlecin Sub kilit_yaz() satırına gelmesini sağlayın,
-- F5 tuşuna basın.

[B]Sub kilit_yaz()[/B]
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
For satır = 15 To 26657 Step 14
    Cells(satır, 2) = "KİLİT"
Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İŞLEM TAMAMLANDI...", vbInformation, "..:: O.BARAN ::.."
[B]End Sub[/B]

 

[u.L.a.s]

Teşekkürler üstadım emeğine bilgine sağlık

 

[Ömer BARAN]

Teşekkürler üstadım emeğine bilgine sağlık

Kolay gelsin.
.