buton sıra

[alicanxy58]

sayın arkdaşlar,bir excell dosyam var bu dosyaya ait makroları çalıştıran 7 adet comandbutonum var ne kadar uğraştı isem bu butonları sayfa üzerinde bir sıraya sokamadım bunu yapmanın prtik bir yolu varmıdır?. Teşekür ederim.

 

[Orion1]

Aşağıdaki kodlar ile Sayfa1 deki commandbutonları a sütununda sıralayabilirsiniz.

Sub buton_sirala()
Dim sat As Byte, cmd As Object
sat = 1
For Each cmd In Sheets("Sayfa1").OLEObjects
    If TypeName(cmd.Object) = "CommandButton" Then
    cmd.Top = Cells(sat, 1).Top
    cmd.Left = Cells(sat, 1).Left
    sat = sat + 2
    End If
Next
MsgBox "Commandbuttonlar A sütununda sıralandı..!!"
End Sub

 

[alicanxy58]

Sayin Oİon2 Cevabiniz İÇİn TeŞekkÜr Ederİm, Ancak Uygulamayi Yapamadim Ekte Örnek Bİr Dosya Ekledİm Cevabi Xls Formatinda GÖnderİrsenİz Sevİnİrİm.

 

[alicanxy58]

Dosya Ektedİr

 

[Seyit Tiken]

Böyle bir şey mi istiyorsunuz?

 

[alicanxy58]

Sn. Seyit Tiken cevabınıza teşekkür ededim. istediğim aynen böyle bir şey.

iki sorum olack:1-Bu sıralamayı kendi asıl dosyamda nasıl yapacam?
2- Butonların arasını istediğimiz kadar açabilirmiyiz?

 

[Orion1]

Sayın alicanxy58 ,ekli dosyayı inceleyiniz .SIRALA butonuna basınız.

Sub sirala()
k = 22
For i = 1 To 18 Step 2
ActiveSheet.Shapes("Button " & k).Top = Range("R" & i).Top
ActiveSheet.Shapes("Button " & k).Left = Range("R" & i).Left
k = k + 1
Next i
k = 31
For i = 1 To 14 Step 2
ActiveSheet.Shapes("Button " & k).Top = Range("S" & i).Top
ActiveSheet.Shapes("Button " & k).Left = Range("S" & i).Left
k = k + 1
Next i

End Sub

 

[alicanxy58]

Sayın ORION2 cevaımıza teşekkür ederim. rar türü dosyaları işyerinde açamıyorum akşam evde bakacam.Ayrıca ilgisi için sn.seyit tiken'e de teşekkür ederim.

 

[Orion1]

Sayın ORION2 cevaımıza teşekkür ederim. rar türü dosyaları işyerinde açamıyorum akşam evde bakacam.Ayrıca ilgisi için sn.seyit tiken'e de teşekkür ederim.

Dosyayı sıkıştırmadan yolladım.Ayrıca kodlarıda yazdım.
Önceki mesajımdan dosyayı indirebilirsiniz.

 

[alicanxy58]

sayın orion2 cevabınız içn teşekkür ederim.

 

[Orion1]

sayın orion2 cevabınız içn teşekkür ederim.

Rica ederim.
iyi çalışmalar.