kod yardımı

[KRONX]

MErhaba,
Aşağıdaki kod konusunda yardıma ihtiyacım var
Aşağıdaki kodda 5 ten başlayıp 47 ye kadar yazdırmasını ardından 5 değerini ekleyip 53 e kadar devam etmesini istiyorum,
47 ye kadar yazıyor ama gerisi gelmiyor yardım edebilir misiniz?

A=53
patchpanel = 5
Max = 47

k = 0
For i = patchpanel To Max
For j = 1 To 96
Worksheets("Sheet1").Range("D" & j + 1 + k * 96).Value = i

Next j
k = k + 1
Next i



k = Max
For i = Max + patchpanel To A
For j = 1 To 96
Worksheets("Sheet1").Range("D" & j + 1 + k * 96).Value = i

Next j
k = k + 1
Next i

 

[ÖmerBey]

Merhaba,
k = Max satırını silerek deneyiniz.

 

[KRONX]

47 den sonra 5 atlaması gerekiyor o yüzden Max 47

 

[ÖmerBey]

Siz yine de bir deneseydiniz...

 

[ÖmerBey]

Tekrar merhaba,
Paylaştığınız kod aslında 52 ve 53 değerlerini de yazdırıyor, fakat araya boşluk bırakıp 4514. satırdan itibaren. Bunun sebebi de sizin k değişkenini max değişkenine eşitlemeniz. Eğer isteğiniz 47 değeri yazdırıldıktan sonra 52'ye geçilmesi ve bunu 47 değerinin hemen altına yazdırılması ise belirttiğim satırı sildiğinizde kod bu işlemi yapacaktır.

 

[KRONX]

Tekrar merhaba,
Paylaştığınız kod aslında 52 ve 53 değerlerini de yazdırıyor, fakat araya boşluk bırakıp 4514. satırdan itibaren. Bunun sebebi de sizin k değişkenini max değişkenine eşitlemeniz. Eğer isteğiniz 47 değeri yazdırıldıktan sonra 52'ye geçilmesi ve bunu 47 değerinin hemen altına yazdırılması ise belirttiğim satırı sildiğinizde kod bu işlemi yapacaktır.

Oldu çok teşekkür ederim .
Bir soru daha soracağım ama burada mı yoksa yeni soruyla mı sormalıyım emin değilim ama yine de sorayım.

ben e sutununa veri birleştirmesi yapmak istiyorum ama kodunu oluşturamadım

1jdzg6j.png

ff

www.hizliresim.com

yapmaya çalıştığım şey su L2 hücresi m2 hücresi ile birleşicek ve e2 HÜCRESİNE AA_P001, e3 HÜCRESİNE AA_P002, e4 HÜCRESİNE AA_P003
, e5 HÜCRESİNE AA_P004, e6 HÜCRESİNE AA_P005, e7 HÜCRESİNE AA_P006, e8 HÜCRESİNE AA_P007, e9 HÜCRESİNE AB_P008 şeklinde devam etsiin istiyorum bu tabloyu makro içine de ekleyebiliriz dışarıda da olablir
şimdiden teşekkürler