+ Reply to Thread
Results 1 to 2 of 2

command button caption

Hybrid View

  1. 03-25-2017, 10:03 AM #1
    scouse13
    scouse13 is offline
    Forum Contributor
    Join Date
    06-27-2014
    Location
    bristol, england
    MS-Off Ver
    excel 2007
    Posts
    264

    command button caption

    Hi all, I am using the code below, to pick up cell entries, and show them on command buttons, it works to a degree
    the commandbutton1 caption shows, but only when I enter target value as 2, commandbuttons 1 and 2 show correct when I enter target value as 3, and so on, can anyone see what I have got wrong in the code please

    scouse13


    Private Sub worksheet_change(ByVal Target As Range)
    If Target.Address(0, 0) = "D9" Then
        If Target.value = isblank Then
          Range("B10:b14").ClearContents
          Range("D10:D14").ClearContents
        ElseIf Target.value = 1 Then
          Range("B10").value = "Grade 1"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
         ElseIf Target.value = 2 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
        ElseIf Target.value = 3 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Range("B12").value = "Grade 3"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
          Sheets("MainMenu").CommandButton3.Caption = Range("D12").value
        ElseIf Target.value = 4 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Range("B12").value = "Grade 3"
          Range("B13").value = "Grade 4"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
          Sheets("MainMenu").CommandButton3.Caption = Range("D12").value
          Sheets("MainMenu").CommandButton4.Caption = Range("D13").value
        ElseIf Target.value = 5 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Range("B12").value = "Grade 3"
          Range("B13").value = "Grade 4"
          Range("B14").value = "Grade 5"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
          Sheets("MainMenu").CommandButton3.Caption = Range("D12").value
          Sheets("MainMenu").CommandButton4.Caption = Range("D13").value
          Sheets("MainMenu").CommandButton5.Caption = Range("D14").value
        End If
        End If
End Sub
    Reply With QuoteRegister To Reply
  2. 03-25-2017, 11:10 AM #2
    AlphaFrog
    AlphaFrog is offline
    Forum Guru
    Join Date
    07-25-2011
    Location
    Florida
    MS-Off Ver
    Excel 2003
    Posts
    9,652

    Re: command button caption

    Is there a formula in D10:D14 ? If yes, the code is clearing the formula.

    Otherwise, I don't follow the description of the problem.
    Surround your VBA code with CODE tags e.g.;
    [CODE]your VBA code here[/CODE]
    The # button in the forum editor will apply CODE tags around your selected text.
    Reply With QuoteRegister To Reply
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. naming Command Button caption in VBA
    By milo1984 in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 03-06-2016, 11:45 AM
  2. Setting Command Button caption
    By pjwhitfield in forum Excel Programming / VBA / Macros
    Replies: 5
    Last Post: 11-06-2014, 05:11 PM
  3. Command Button Caption
    By tapsmiled in forum Excel Programming / VBA / Macros
    Replies: 6
    Last Post: 02-23-2014, 09:57 PM
  4. Command Button Caption distortion
    By rboote in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 10-09-2008, 11:01 AM
  5. Command Button Caption Wrap
    By DCSwearingen in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 02-27-2008, 10:09 AM
  6. [SOLVED] changing the caption of a command button
    By JWCrosby in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 12-08-2005, 04:15 PM
  7. Command Button Caption
    By Qaspec in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 01-27-2005, 12:06 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules


Search Engine Friendly URLs by vBSEO 3.6.0 RC 1