Dialoogbox openen bij opstart en klikken button

[karel1982]

Beste,

Bij het openen van mijn bestand wordt automatisch een dialogbox geopend waar ik mijn dossiernummer kan invullen.

Private Sub Workbook_Open()
Sheets("Tekst").Select

If Range("A3").Value = "0" Then
    Dossiernummer.Show
    
Else

    Sheets("Tekst").Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    
End If

End Sub

Code kan misschien anders, maar werkt voor wat ik nodig heb.


Door het klikken op een Commandbutton open ik dezelfde dialoogbox om het dossiernummer te kunnen wijzigen.

Sub Dossiernummer()
    Dossiernummer.Show
End Sub

Probleem: Op verschillende toestellen werkt dit perfect, maar op 1 toestel werkt het plots niet meer.
Zelfde versie van Windows en Excel.

 

[snb]

Code moet anders:

Private sub Workbooks_open()
  If Sheets("Tekst").cells(3,1)=0 then
    inputbox "dossiernummer",,"snb"
  else
    sheets(4).activate
  End If
End Sub

Je vraag is onvolledig zonder voorbeeldbestand en specificatie van de verschillende 'toestellen' en weergave van de optredende fout.

 

[OctaFish]

Zet er voor de zekerheid nog een IF opdrachtje bij

Private sub Workbooks_open()
  If Sheets("Tekst").Cells(3,1)= 0 Then
    Inputbox "dossiernummer",,"snb"
  Else
    Sheets(4).Activate
  End If
End Sub

 

[karel1982]

Bijgevoegd het voorbeeldbestand.

Op die ene computer opent de dialoogbox niet, en kan ik ook niet klikken op de commandbutton.

Ik krijg geen foutmelding. Werkt gewoon niet.

 

[snb]

Private Sub Workbook_Open()
  If Blad3.Range("A3").Value = 0 Then Blad3.Range("A3").Value = InputBox("dossiernummer")
  Blad29.Activate
End Sub

Private Sub CommandButton1_Click()
  Blad3.Range("A3").Value = InputBox("dossiernummer")
End Sub

 

[karel1982]

Heb de aanpassingen uitgevoerd en het werkt.
Heb de knop aangepast van ActiveX-besturingselement naar Formulierbesturingselement, en nu werkt op dat ene toestel ook alles.

Snap niet hoe het komt dat de vorige versie plots niet meer werkte op dat toestel, maar is nu opgelost.

 

[OctaFish]

Heb je een goede reden om de complete code te quooten?

 

[snb]

Je code kan nog 'enigszins' verbeterd worden

Voor de procedure 'Budgetmeter' zijn 6 regels waarschijnlijk vodoende:

Sub M_Budgetmeter()
  with activesheet
    For j = 1 To 8
      .Shapes("Budget " & j).Visible = [AE72] = j
      .Shapes("Budget 0." & j) = Not .Shapes("Budget " & j).Visible
    Next
  end with
End Sub