none
çoklu excel düğmelerine değişik isim ve eğişik makro atama RRS feed

  • Soru

  • Osman Hocam, ben 28 adet Cari Hesap sayfaları oluşturacağım. Bunuda şu şekilde yapıyorum, sayfanın birini format sayfa yaptım. İçerisinde tablolar var. Yeni bir cari hesap sayfası açar iken bu format sayfayı komple kopyalayıp yeni bir sayfa açtırıp yapıştırıyorum. O esnada bütün bu hesapları takip edeceğim MİZAN sayfam vardı sizin önceki yardımınızla bu MİZAN sayfasına otomatik olarak kayıt yapabiliyorum. Sorum şu:

    Daha önce yaptığım ve  28 adet düğme eklediğim birde MENÜ sayfam var. Ben cari hesap sayfası açarken o esnada MENÜ sayfasında sıradaki düğmeye adını ve sayfasına gidiş makrosu eklemem gerekiyor. 

    düğme 341 , düğme 342, düğme 343, düğme 344 ... ben düğme isimlerini sildim.

    ActiveSheet.Shapes("Button 341").Select

    VB kodları ile bu düğmeler arasında ilerleyebilmem için bana bir döngü lazım yardımcı olabilirmisiniz.

    SER

    if Selection.Characters.Text = "" then

    dim i as commandbutton

    i = 341

    ActiveSheet.Shapes("Button i").Select

    Selection.Characters.Text ="SERKAN"

    Selection.OnAction = "SERKAN C/H"(serkan sayfasını açmak için makro)

    else

    i = i+1

    goto SER:

    Hocam bu döngü hata veriyor. "i" nin olduğu yer ve Button i hata veriyor. Hocam lütfen bana yardım. Başka bir döngüde olabilir.

    Şimdiden teşekküe edirim.

    selamlar,

    13 Eylül 2018 Perşembe 13:34

Tüm Yanıtlar

  • If ActiveCell.Offset(0, -1) = 1 Then
      Sum1 = Sum1 + Cell.Value
      ElseIf ActiveCell.Offset(0, -1) = 2 Then
      Sum2 = Sum2 + Cell.Value
      ElseIf ActiveCell.Offset(0, -1) = 3 Then
      Sum3 = Sum3 + Cell.Value
      ElseIf ActiveCell.Offset(0, -1) = 4 Then
      Sum4 = Sum4 + Cell.Value
    End If


    Birinin cevabı size yardımcı oldu ise, lütfen "Yanıt Olarak Öner" veya "Yanıt Olarak İşaretle" olarak işaretlemeyi ve "Oy" vermeyi unutmayınız. Burada sağlanan tüm görüşler, kişiseldir ve Microsoft'un konumunu temsil etmemektedir. Tüm bilgiler hazır olarak temin edilmektedir ve herhangi bir garanti vermemektedir.

    • Yanıt Olarak İşaretleyen serkandallas 16 Eylül 2018 Pazar 10:58
    • Yanıt İşaretini Geri Alan serkandallas 16 Eylül 2018 Pazar 10:58
    • Yanıt Olarak İşaretleyen serkandallas 16 Eylül 2018 Pazar 10:58
    • Yanıt İşaretini Geri Alan serkandallas 16 Eylül 2018 Pazar 10:58
    14 Eylül 2018 Cuma 11:22
    Moderatör
  • Hocam kusura bakmayın bu verilen cevabın benimle hiçbir alakası yok. Belki sorunumu ben anlatamadım.

    Şöyle kısaca anlatayım: Makro ile yeni bir sayfa açıyorum, yine aynı makro ile içine tablo yazıyorum, yine aynı makro ile başka bir "MENÜ" sayfasındaki 28 adet düğmenin ilk boş olanına açılan sayfanın adını yazdırmam gerekiyor.

    Makro çalıştırılırken "MENÜ" sayfasındaki düğmelerin adını bilmiyoruz.

    ActiveSheet.Shapes("Button 341").Select

    Selection.Characters.Text ="SERKAN"

    button 341 ismini bilmeden döngü oluşturmamız lazım

    16 Eylül 2018 Pazar 11:09