İki kodu birleştirme

[alipinar]

Günaydın iyi çalışmalar arkadaşlar
Benim sorunum şu: Satır yükseklikleri farklı olan yaklaşık 500 adet satırın f sütünuna checkbox koymak istiyorum. Ama bu checkboxlar hücrenin ortasında olmasını istiyorum. Ekte örnek çalışma sayfamda hücre ortalamasını sayfa2 oldu. Sayfa 3'de de örneğin 10 tane checkbox oluşturdum ama hücreden bağımsız oluyor. Bu iki kodu birleştirebilirsem veya sorunumu çözecek başka bir kod konusunda yardımcı olursanız çok mutlu olurum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Belki bu kod işinizi görebilir.

Private Sub CommandButton2_Click()

Dim a As Integer
Dim b As Integer
b = Me.CheckBox1.Top
x = [a1].Width
y = [a1].Height
ActiveSheet.OLEObjects.Delete
For a = 1 To 10
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
        Left:=240.75, Top:=b, Width:=x, Height:=y)
        .Name = "CheckBox" & a
        .Object.Caption = "ALİ  " & a
        
    End With
    b = b + [a1].RowHeight
    Next a
End Sub