knop uitvoeren

[jeroenduvel]

hoe kan ik 2 knoppen laten afspelen in excel doormiddel van 1 knop binnen visual basic?

mvg

 

[jaccovh]

kun je me dat iets beter uitleggen?

 

[jeroenduvel]

Ik heb in visual basic 3 macros op 3 knoppen van excel gezet.
Nu is mijn vraag hoe kan ik 2 macro's op 1 knop zetten ?

grtzz

 

[jaccovh]

doofenshmirt maak er zelf een topic voor en ga hier niet zeiken.

jeroen, dan moet je "And" gebruiken. hier een voorbeeld met labels veranderen als ik op een knop druk:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

label1.text = "hoi" And label2.text = "doei"

End Sub

als je het niet begrijpt zeg het dan even.

 

[Doofenshmirt]

Sorry verkeerd geplaatst.
Is verwijderd.


Noem ik niet zeiken !

 

[jeroenduvel]

Sub OmzettingA()

'22mm'
'________________________________________________WIT_22mm__________________________________________________________________'

'TW_W22'

'vragen als we zeker zijn van de omzetting'
    If MsgBox("Bent U Zeker?", vbYesNo) = vbNo Then Exit Sub

 ' Turn off screenupdating:'
    Application.ScreenUpdating = False


'Naar prijslijst 22mm gaan'
    Windows("prijslijst.xls").Activate
    Sheets("22 mm wit+kl1+kl2").Select

'Gaan we de Maten importeren'
    Windows("prijslijst.xls").Activate
    Range("C8:C12").Select
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("prijslijst.xls").Activate
    Range("D7:H7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
'Prijzen importeren'
     Windows("prijslijst.xls").Activate
    Range("D8:H12").Select
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    

'Afronden op 2 decimalen'
    Range("B2:F6").Select
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00"
    
'tabelnaam selecteren en plakken'
    Windows("prijslijst.xls").Activate
    Range("A6").Select
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
'Gaan we ervoor zorgen dat hij automatisch ja aanklikt (als  men dit nietmeer wilt moet men true invullen)'
    Application.DisplayAlerts = False

'tabel opslaan onder naam van cel A1 en als TRF bestand'
    SaveAs = (A1)
    Dim Bestandsnaam As String
    ActiveWorkbook.SaveAs
    Bestandsnaam = "C:\Users\Hoofdgebruiker.Acer5530\Documents\Stageopdracht\schreurs\trf bestanden\22mm\" & CStr(Range("A1").Value) & ".trf"
    ActiveWorkbook.SaveAs Bestandsnaam, FileFormat:=xlUnicodeText, CreateBackup:=False
             
'Bestand opslaan als excel met macro'
    ChDir "C:\Users\Hoofdgebruiker.Acer5530\Documents\Stageopdracht\schreurs"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Hoofdgebruiker.Acer5530\Documents\Stageopdracht\schreurs\trfomzet.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
        
        

'LV_W22'

'Gaan we de Maten importeren'
         Windows("prijslijst.xls").Activate
    ActiveWindow.SmallScroll Down:=-78
    Range("C18:C22").Select
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D14").Select
       Range("B3").Select
        Windows("prijslijst.xls").Activate
    Range("D17:H17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
'Prijzen importeren'
     Windows("prijslijst.xls").Activate
    Range("D18:H22").Select
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H6").Select


'Afronden op 2 decimalen'
    Range("B2:F6").Select
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00"
    Range("B3").Select

'tabelnaam selecteren en plakken'
    Windows("prijslijst.xls").Activate
    Range("A16").Select
    Selection.Copy
    Windows("trfomzet.xlsm").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
'tabel opslaan onder naam van cel A1 en als TRF bestand'
    SaveAs = (A1)
    Bestandsnaam = "C:\Users\Hoofdgebruiker.Acer5530\Documents\Stageopdracht\schreurs\trf bestanden\22mm\" & CStr(Range("A1").Value) & ".trf"
    ActiveWorkbook.SaveAs Bestandsnaam, FileFormat:=xlTextMSDOS, CreateBackup:=False
             
'Bestand opslaan als excel met macro'
    ChDir "C:\Users\Hoofdgebruiker.Acer5530\Documents\Stageopdracht\schreurs"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Hoofdgebruiker.Acer5530\Documents\Stageopdracht\schreurs\trfomzet.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Weet er iemand hoe ik hier een loop van kan maken ?

mvg

 

[huijb]

@jeroenduvel code dien je tussen codetags te plaatsen.

 

[jeroenduvel]

bedankt

ik begrijp het niet goed?
niet slecht bedoeld ma is ook eerste keer dat ik met vba werk daarmee.
Wel alvast bedankt voor de hulp.

mvg

 

[huijb]

Lees dit eens door http://www.helpmij.nl/forum/showthread.php/321171-Lees-dit-eerst-voor-je-een-vraag-plaatst

 

[jeroenduvel]

ok zal zeker doen
heel erg bedankt alvast voor de hulp.

mvg

jeroen

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.