Makro ile Etkinlik salonu kayıt listesi oluşturma

[KRONX]

Herkese iyi akşamlar ,
Foruma baktım ama sanırım yapamadım
Ekte belirtilen excel dosyası için yardıma ihtiyacım var.
Makro kaydet ile bir macro oluşturdum ama olmadı .
Şimdiden herkese teşekkürler


B sutununda gördüğü şeyi c sutununa yazacak
d sutunu elle doldurulacak
e sutunu için sürekli 1den 100'e kadar yazacak bitince yeniden 1 den 100'e kadar yazacak sürekli devam edecek
g sütununda 10 kez 1 , 2,3...8 e kadar gidecek sonra yeniden 1 den başlayacak( 10 ar kişilik ekipler alıyoruz)
h sutununda 1den 10a kadar sürekli yazacak
ı sutununda sürekli "gri alan" yazacak
j sütünda eğer b sutunu doluysa e değilse h yazak
son olarak da k sütünda hep bb yazacak
Etkinlik dosyası

 

[mesuttasar]

Kodları denermisiniz?

Sub deneme()
Dim i, x, y As Long

For i = 2 To 201
Cells(i, 3) = Cells(i, 2)
If Cells(i, 2) = "" Then Cells(i, 10) = "h" Else Cells(i, 10) = "e"
Cells(i, 9) = "gri alan"
Cells(i, 11) = "BB"
If i <= 101 Then Cells(i, 5) = i - 1 Else Cells(i, 5) = i - 101
Next i


For i = 2 To 200 Step 10
Cells(i, 8) = 1
Cells(i + 1, 8) = 2
Cells(i + 2, 8) = 3
Cells(i + 3, 8) = 4
Cells(i + 4, 8) = 5
Cells(i + 5, 8) = 6
Cells(i + 6, 8) = 7
Cells(i + 7, 8) = 8
Cells(i + 8, 8) = 9
Cells(i + 9, 8) = 10
Next i

y = 0
For i = 1 To 20
  For x = y + 1 To y + 10
  Cells(x + 1, 7) = i
  Next x
y = y + 10
Next i


End Sub