Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Recente berichten

Pagina's: [1] 2 3 4 ... 10
1
Excel / Re: Commandbar aanroepen
« Laatste bericht door Richard2000 Gepost op Vandaag om 12:41:56 »
Nee helaas, dat is hem ook niet, daarmee open je de sub in de gewone module en het moet die zijn die in de klasse module staat, maar iig bedankt voor je meedenken  :thumbsup:

Maar ik heb het gevonden, het moet vanuit een variable aangeroepen worden en het lukt mij alleen via de userforms controls, dus of het zo hoort durf ik niet te zeggen, daar moeten de experts zich maar over buigen  :)

De code is iig wel lekker kort en makkelijk in te planten, hieronder wat in je userform gaat,

Option Explicit

Public MenBes As kmdBestand

Private Sub UserForm_Initialize()
 
   Set MenBes = New kmdBestand
   Set MenBes.MenuBestand = CommandButton1 ' naam van je commandbutton
   
  End Sub
 
Private Sub CommandButton1_click()

End Sub

Bij je commandbutton is geen code nodig, alles op de public na zit onder initialize

En hier de code die in je klasse module gaat voor 4 knoppies in het midden van je scherm,

Option Explicit

Private WithEvents CopyCtl As CommandBarButton
Private WithEvents CutCtl As CommandBarButton
Private WithEvents PasteCtl As CommandBarButton
Private WithEvents OpenLink As CommandBarButton
Public WithEvents MenuBestand As CommandButton

Private Sub MenuBestand_click()

Dim oCmbar As CommandBar
     
Set oCmbar = Application.CommandBars.Add(Position:=msoBarPopup, temporary:=True)
Set CopyCtl = oCmbar.Controls.Add(msoControlButton)
Set CutCtl = oCmbar.Controls.Add(msoControlButton)
Set PasteCtl = oCmbar.Controls.Add(msoControlButton)
Set OpenLink = oCmbar.Controls.Add(msoControlButton)
               
        With CopyCtl
            .Style = msoButtonIconAndCaption
            .FaceId = 19
            .Caption = "Copy"
    End With
       
        With CutCtl
            .Style = msoButtonIconAndCaption
            .FaceId = 21
            .Caption = "Cut"
    End With
       
        With PasteCtl
            .Style = msoButtonIconAndCaption
            .FaceId = 22
            .Caption = "Paste"
    End With
       
        With OpenLink
             .Style = msoButtonIconAndCaption
             .FaceId = 39
             .Caption = "Open"
    End With
               
        oCmbar.ShowPopup (550), (200)
        oCmbar.Delete

End Sub

Private Sub CopyCtl_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
 
    'code
 
End Sub

Private Sub CutCtl_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)

    'code

End Sub

Private Sub PasteCtl_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   
    'code
   
End Sub

Private Sub OpenLink_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)

    'code
     
End Sub

Klasse module wel omnamen naar kmdBestand, en de 550 en 200 na popup is de positie.

Hoop dat iemand er wat aan heeft, en allemaal bedankt voor het meedenken!
2
E-Mailprogramma's / Re: Tekstcodering in Thunderbird
« Laatste bericht door Montagnard Gepost op Gisteren om 15:42:20 »
ik heb enkele jaren geleden een drastisch besluit genomen i.v.m. met mail (accounts) en me tot op vandaag nog nooit beklaagd :

ik heb een Outlook mailadres aangemaakt (Outlook.be maar Outlook.com kan ook).
dan heb ik in Telenet webmail ingesteld dat al mijn (Telenet) mail moest doorgestuurd worden naar dat Outlook adres.
dan mijn ganse adres boek verwittigd dat ze vanaf dan mijn Outlook adres moesten gebruiken.
bij ALLE mail die dan nog binnenkwam gericht aan mijn Telenet adres ( meestal van websites enz ) heb ik onmiddellijk ingelogd en mijn mail adres aangepast.
in het begin waren dat er redelijk veel maar dat verminderde keer op keer en nu krijg ik geen Únkele mail nog via mijn Telenet adres.
ik kan nu gelijk welke provider nemen voor Internet / mail , ik gebruik gewoon verder mijn Outlook adres en negeer het door de provider aangeboden adres.
in Telenet webmail staat er gewoon niets meer van mij , geen mails en geen mail adressen.

Mvg,
Montagnard.
3
Excel / Re: Commandbar aanroepen
« Laatste bericht door dizzl Gepost op Gisteren om 15:21:12 »
Nu open je een formulier bij knop klik.

Geen idee wanneer je het menu wilt zichtbaar maken, maar als het het op knopklik wilt dan moet je dit oproepen:

Private Sub CommandButton1_Click()
   'Open het menu
   MenuBestand
   'open het formulier
   UserForm1.Show
End Sub
4
Excel / Re: Commandbar aanroepen
« Laatste bericht door Richard2000 Gepost op Gisteren om 11:34:19 »
Geen probleem, iig bedankt voor het meedenken :thumbsup:, ik pruts ondertussen gewoon lekker verder  :)
5
E-Mailprogramma's / Re: Tekstcodering in Thunderbird
« Laatste bericht door SoftAid Gepost op Gisteren om 10:16:33 »
Hallo Arnold,

Dat je wou helpen dat is wat telt  :thumbsup:

Wat betreft gebruik zie ik niet zo dadelijk veel verschil tussen beide.
Maar ik heb eM Client ook nog niet kunnen testen, er scheelt nog iets aan de accountinstellingen.
Alles staat identiek aan Thunderbird, maar noppens.
Ik heb er ook nog niet veel tijd in kunnen steken. Te veel problemen met Telenet.

Eerst kwamen meldingen van oplossing.be niet meer binnen.
Uiteindelijk vond ik ze terug in mijn Spam-map van Telenet webmail.
Daar ben ik nu al 10 dagen zoet mee, telefoontje hier, mailtje daar.
Niets hielp om hen het probleem zelfs maar uit te leggen.

Dan Combell ingeschakeld, daar heb ik in totaal een 20 mailtjes van in de map zitten. Resultaat, Telenet zijn fout.
Telenet stuurt mij dan naar de provider waar de website gehost is (comell dus) en als ik zeg dat Combell alles heeft nagekeken aan hun kant, en zeggen dat het de fout van Telenet is, dan zijn ze ineens akkoord dat het bij hen kan liggen.
Maar.... dat moeten ze doorgeven aan een andere dienst enzovoorts enzovoorts. Van het kastje naar de muur....

Gisteren werd ik dan gebeld door technischehulp@telenet en die mevrouw ging er werk van maken. Voor de zoveelste keer moest ik een deel van die mails (die verkeerd terecht kwamen) opsturen naar hun, en warempel, in de namiddag kwam er 1 mail van oplossing in de Inbox terecht, hoera. Daarna werd het stil en ontving ik geen mails meer van oplossing, in geen enkele box. Dat is nu nog steeds zo, en ik ga nu maar weer aan het bellen slaan, want op mijn mails van gisteren krijg ik een reactie: 16/04/21 08:32
Citaat
Naar aanleiding van ons contact gisteren en uw daarop volgende mails test ik even of deze mail al dan niet bij u correct wordt afgeleverd. U mag deze mail gewoon negeren, ik neem contact op van zodra ik meer nieuws heb.

We zijn nu 10:10 en er is nog niets gebeurd. Bedroevend.

Afwachten maar...

Groeten,

:) SoftAid :)             



6
Excel / Re: Commandbar aanroepen
« Laatste bericht door Montagnard Gepost op Gisteren om 08:40:24 »
sry , mijn kennis reikt niet ver genoeg , hopelijk kan een andere "oplosser/helper" U wel helpen...
Mvg,
Montagnard.
7
E-Mailprogramma's / Re: Tekstcodering in Thunderbird
« Laatste bericht door Montagnard Gepost op Gisteren om 08:07:12 »
Hallo Arnold,
Dat topic is van 2014 en bestemd voor US, ik kon er niet veel nuttig uit halen.
oeps had er geen acht op geslagen , wou gewoon helpen , maar ga daar idd toch beter op letten...
toch nog altijd twijfel tussen Thunderbird & eMclient ?
mvg,
Montagnard.
8
E-Mailprogramma's / Re: Tekstcodering in Thunderbird
« Laatste bericht door SoftAid Gepost op 15 april 2021, 18:50:47 »
Hallo Arnold,

Dat topic is van 2014 en bestemd voor US, ik kon er niet veel nuttig uit halen.

Ik heb intussen goede raad gekregen die wel werkt:

Je moet rechtsklikken (ergens) in Postvak-In en daar de Map-eigenschappen bewerken:
Terugvaltekstcodering: als Unicode (UFT-8) instellen
een vinkje zetten bij "Codering op alle berichten in de map toepassen....."

Dit werkt dus voor de map Postvak-In.
Wil je dit ook voor bijvoorbeeld je map Concepten, dan dien je bovenstaand te herhalen voor die map.

Ook mijn adresboek heb ik nu kunnen overzetten van Thunderbird naar eM Client.
Eerst Adresboek openen, Extra, Exporteren, Alle Adresboeken (of Persoonlijk adresboek), Kommagescheiden (Systeemtekenset)(*.CSV) en dit opslaan (op je bureaublad of dergelijke)
Importeren vanuit een csv-bestand in eM Client moet je wel nog namen toewijzen aan de kolommen, maar dat wijst zich wel zelf aan.

Met dank aan alle helpers.

:) SoftAid :)             


9
E-Mailprogramma's / Re: Tekstcodering in Thunderbird
« Laatste bericht door Montagnard Gepost op 15 april 2021, 16:15:34 »
10
Excel / Commandbar aanroepen
« Laatste bericht door Richard2000 Gepost op 15 april 2021, 11:12:41 »
Hallo,

Ik probeer een commandbar te maken en dat lijkt te lukken maar krijg deze niet aangeroepen met een cmd knop, ik ben nog steeds een beetje een leek op excel VBA en een commandbar is helemaal nieuw en kan er helaas weinig over vinden op het net, voor zover ik begrijp moet je een commandbar in een klasse module bouwen en gaat het oproepen van de sub anders dan in een form of module, ik heb dezelfde commandbar ook in een norm. module gezet maar dan de variable's zonder event's en dan lukt het oproepen wel maar dan werken de buttons zelf niet, en in de klasse module krijg ik een variable niet gedefineerd maar welke?
Dus nou twijfel ik of het nu in een normale of een klasse module moet? Googlen levert niets op en wat ik vind krijg ik ook niet aan de praat met dezelfde variable fout dus wat doe ik nou verkeerd?

Hieronder de code en het gaat om menubestand, hoe roep ik die aan?

Option Explicit

Public WithEvents Opslaan As CommandBarButton
Public WithEvents OpslAls As CommandBarButton
Public WithEvents Opvul1 As CommandBarButton
Public WithEvents Export As CommandBarButton
Public WithEvents Import As CommandBarButton
Public WithEvents Opvul2 As CommandBarButton
Public WithEvents Printer As CommandBarButton
Public WithEvents Opvul3 As CommandBarButton
Public WithEvents Afsluiten As CommandBarButton

Public DateString As String
Public FolderName As String
Public wsExp As Worksheet
Public Map As String

Function MenuBestand()

    Public oCmbar As CommandBar
    Set oCmbar = Application.CommandBars.Add(Position:=msoBarPopup, temporary:=True)
           
        Set Opslaan = oCmbar.Controls.Add(msoControlButton)
        Set OpslAls = oCmbar.Controls.Add(msoControlButton)
        Set Opvul1 = oCmbar.Controls.Add(msoControlButton)
        Set Export = oCmbar.Controls.Add(msoControlButton)
        Set Import = oCmbar.Controls.Add(msoControlButton)
        Set Opvul2 = oCmbar.Controls.Add(msoControlButton)
        Set Printer = oCmbar.Controls.Add(msoControlButton)
        Set Opvul3 = oCmbar.Controls.Add(msoControlButton)
        Set Afsluiten = oCmbar.Controls.Add(msoControlButton)
               
        With Opslaan
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 19
            .Caption = "Opslaan"
        End With
       
        With OpslAls
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 21
            .Caption = "Opsl. Als"
        End With
       
         With Opvul1
            .Height = 15
            .Width = 120
        End With
       
        With Export
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 22
            .Caption = "Export"
        End With
       
        With Import
             .Style = msoButtonIconAndCaption
             .Height = 30
            .Width = 120
             .FaceId = 39
             .Caption = "Import"
        End With
       
         With Opvul2
            .Style = msoButtonIcon
            .Height = 15
            .Width = 120
        End With
       
         With Printer
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 22
            .Caption = "Printer"
        End With
       
         With Opvul3
            .Style = msoButtonIcon
            .Height = 15
            .Width = 120
        End With
       
         With Afsluiten
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 22
            .Caption = "Afsluiten"
        End With
               
        oCmbar.ShowPopup (20), (60)
        oCmbar.Delete
   
End Function

Private Sub Opslaan_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

      ProgOpslaan
End Sub

Private Sub OpslALs_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

      ProgOpslAls
End Sub

Private Sub Export_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
      BestandExport
End Sub

Private Sub Import_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
     
End Sub

Sub ProgOpslaan(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Application.ThisWorkbook.Save
End Sub
Sub ProgOpslAls(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Map = Application.ThisWorkbook.Path
Application.Dialogs(xlDialogSaveAs).Show (Map)
End Sub
Sub BestandExport(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook

Dim xFile As String


Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
 
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & "export" & "\" & xWb.Name & wsExp.Name & " " & DateString
FileExtStr = ".xlsb": FileFormatNum = 50
 
MkDir FolderName
 
    wsExp.Select
    wsExp.Copy
    xFile = FolderName & "\" & wsExp.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile

   
    Application.ScreenUpdating = True
   
End Sub

Pagina's: [1] 2 3 4 ... 10


www.combell.com