programı ekleyebilirsen yardımcı olmaya çalışabilirim

kodu şu şekilde düzenleyip dene bakalım
burada
Y komut düğmesinin numarasını
X alan numarasını temsil ediyor
bunun düzgün çalışması için komut düğmesinin ve alan isimlerinin numaralarının kesintisiz atlamadan verilmiş olmalı
mesela
Y 154 den 163 e
X 9 dan 57 e kesintisiz atlamadan olmalı
-----------------------
Private Sub Komut1_Click()
Dim Y As Integer
Dim X As Integer
Dim A As Integer

A = 0
Y = 154

For X = 9 To 57

A = A + 1

if A = 5 then
Y = Y + 1
A = 0
next X
end if

If Me("[Alan" & X & "]") = Null Or Me("[Alan" & X & "]") = "" Or Me("[Alan" & X & "]") = Empty Then

Me("[komut" & Y & "]").Enabled = False

Else

Me("[komut" & Y & "]").Enabled = True

End If

Next X

End Sub

---------------------------------------------