Help!

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

Hulp bij posten

Recente topics

Auteur Topic: VBA-code versnellen/aanpassen/opschonen...  (gelezen 12232 keer)

0 leden en 1 gast bekijken dit topic.

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #15 Gepost op: 29 augustus 2021, 17:03:30 »
suggestie:
Maak een echte tabel van de data op blad Verhandelingen.
Met een Userform met twee Listboxen op blad Verhandelingen kun je allerlei overzichten laten zien per hoofdcategorie en/of begunstigde.

Ik zal straks of morgen eens een voorbeeld plaatsen onder een nieuwe Topic.

Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #16 Gepost op: 29 augustus 2021, 18:42:56 »
Albert , ik moet eerlijk bekennen dat ik totaal maar dan ook totaal niks ken over tabellen enz , nooit mee gewerkt , nooit iets over geleerd , ik weet zelf het doel er niet van...
wat me wel al was opgevallen , is dat als ik op het werkblad "Verhandelingen" uitfilter naar b.v. de begunstigde "boodschappen" , ik geen totaal kan krijgen van de bedragen , kan dat überhaupt wel ?
ik zie dat je ondertussen een nieuw topic heb gestart hieromtrent , ik ga dat morgen bekijken.
alvast bedankt voor je insteek  :).

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #17 Gepost op: 29 augustus 2021, 20:00:06 »
Update :

Ben ondertussen al een hele dag (sinds 6u vanmorgen  ;D) bezig met het samenstellen van mijn nieuw bestand, en met het ontwerpen en coderen van het userform.

Het ontwerp van het UF is al enkele uurtjes af en ondertussen heb ik al een paar simpele zaken mbt het UF kunnen coderen, oa. :
- de opdrachtknop voor het openen van het UF met de standaardwaarden voor een deel ervan
- de opdrachtknop voor het resetten van een deel van het UF
- de opdrachtknop voor het sluiten van het UF
- de combobox-lijst gevuld voor de selectie van de gewenste maand met als standaard waarde de huidige maand
- de correcte waarden laten weergeven van de recentste rek-standen
- het vullen van de eerste listbox met de categorieën
- het vullen van de tweede listbox adhv de keuze in de eerste listbox
- de standaardweergave van de huidige datum in de textbox voor de uitvoerdatum

Het enige wat me in bovenstaande nog niet gelukt is, is om de juiste notatie aan de textboxen toe te kennen voor de bedragen en de datum maar daar kom ik later nog wel op terug.

Ik ben nu klaar om mijn 'maand-overzicht' in het userform te coderen maar omdat ik weinig ervaring heb met de juiste structuren en formuleringen om vanuit het UF de nodige waarden aan te roepen vanuit 'benoemde bereiken' alsook totaal geen ervaring heb met zoeken & vergelijken binnen de VBA omgeving heb ik dus een vraag.

Ik heb enerzijds een werkblad met een benoemd bereik (Inkomsten) van 8 rijen en 13 kolommen waarbij de eerste kolom de waarden bevat die aan een groep labels in het UF moet gegeven worden en de volgende 12 kolommen de bedragen bevatten volgens maand (bedragen in de 2e kolom behoren dus tot de maand januari) welke dan adhv de gekozen maand in het UF moeten worden weergegeven in de textboxen naast de correcte labels. De eerste 4 rijen betreffen de vaste inkomsten, de volgende 4 rijen betreffen de sporadische inkomsten. Voor de sporadische inkomsten heb ik 3 rijen effectief in gebruik en één rij vrij voor een eventuele nieuwe sporadische inkomst.

Anderzijds heb ik dan in het UF binnen het frame 'Inkomsten' 8 labels en 8 textboxen opgesplitst in de vaste (elke maand opnieuw) inkomsten en in de sporadische (1 of enkele keren per jaar) inkomsten.

De labels heb ik benoemd als volgt :
- voor de vaste inkomsten 'Lbl_inV#' waar # staat voor een cijfer van 1 tot 4
- voor de sporadische inkomsten 'Lbl_inS#' waar # staat voor een cijfer van 1 tot 4
dus bvb 'Lbl_inV1' moet de waarde krijgen van de eerste rij in de eerste kolom van het benoemd bereik en
'Lbl_inS1' moet dan de waarde krijgen van de vijfde rij in de eerste kolom van het benoemd bereik.

De textboxen heb ik benoemd als volgt :
- voor de vaste inkomsten 'Txt_sominV#' waar # staat voor een cijfer van 1 tot 4
- voor de sporadische inkomsten 'Txt_sominS#' waar # staat voor een cijfer van 1 tot 4

Voor de labels is het de bedoeling dat deze de waarde krijgen uit de eerste kolom van het benoemd bereik 'inkomsten', en dit enkel maar ingeval de huidige waarde van het label niet overeenkomt met de corresponderende cel uit het werkblad. Dit is enkel nodig als er zich een wijziging in de namen voordoet of ingeval van een nieuw kalenderjaar.
Voor de textboxen naast de labels is het dan de bedoeling dat als ik in het UF bvb de maand 'mei' selecteer dat dan de bedragen uit de corresponderende kolom in het benoemd bereik (voor mei is dat dan kolom 6) en de corresponderende rij (tov het label) hier word weergegeven alsook de kleur van de cel (zodat zichtbaar is wanneer een bepaalde inkomst reeds ontvangen werd).

Hoe pak ik dit het beste globaal aan, via een loop, via een select case, of misschien een totaal andere methode?
Wie kan/wil mij op weg helpen?

Ik heb op datzelfde werkblad nog twee andere benoemde bereiken mbt de uitgaven en op het UF dan ook nog het frame 'uitgaven' maar hier is dezelfde werkwijze nodig als voor het onderdeel inkomsten dus eens ik met het eerste onderdeel verder kan zal ik makkelijk het tweede onderdeel (uitgaven) kunnen coderen (denk ik toch).

Alvast mijn oprechte dank op voorhand.

groetjes,
BlackDevil

P.S.: hopelijk moet ik het ontwerp van het UF niet volledig herbeginnen want ben er ruim 5 uur mee bezig geweest.
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #18 Gepost op: 29 augustus 2021, 23:48:59 »
voor de labels inkomsten in UserForm_Initialize
For i = 1 To 4
Me("Lbl_inV" & i).Caption = Sheets("Categorie").Cells(i + 1, 1)
Next i

For i = 1 To 4
Me("Lbl_inS" & i).Caption = Sheets("Categorie").Cells(i + 5, 1)
Next i

p.s. je maakt het je extra moeilijk door de labels zo te benoemen.
ik zal morgen een andere optie geven.
Groet,

Albert

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #19 Gepost op: 30 augustus 2021, 07:17:28 »
Goeiemorgen Albert,

Hartelijk dank voor je reactie, jouw voorbeeld heeft me goed op weg geholpen.

Mits een kleine aanpassing in de code (zie hieronder mijn versie) doet hij het perfect.
For i = 1 To 4
Me("Lbl_inV" & i).Caption = Sheets("Jaaroverzicht").Range("Inkomsten").Cells(i, 1)
Next i

For i = 1 To 4
Me("Lbl_inS" & i).Caption = Sheets("Jaaroverzicht").Range("Inkomsten").Cells(i + 4, 1)
Next i

Het enige wat ik nu nog moet toevoegen zijn de If-statements.

groetjes,
BlackDevil

UPDATE :

De code wat verder opgebouwd voor alle labels in het UF en dit is het totnogtoe geworden :
For i = 1 To 4
Me("Lbl_inV" & i).Caption = Sheets("Jaaroverzicht").Range("Inkomsten").Cells(i, 1)
If Me("Lbl_inV" & i).Caption = "" Then Me("Txt_sominV" & i).Visible = False
Me("Lbl_inS" & i).Caption = Sheets("Jaaroverzicht").Range("Inkomsten").Cells(i + 4, 1)
If Me("Lbl_inS" & i).Caption = "" Then Me("Txt_sominS" & i).Visible = False
Next i

For i = 1 To 20
Me("Lbl_uitV" & i).Caption = Sheets("Jaaroverzicht").Range("Maandelijks").Cells(i, 1)
If Me("Lbl_uitV" & i).Caption = "" Then Me("Txt_somuitV" & i).Visible = False
Me("Lbl_uitS" & i).Caption = Sheets("Jaaroverzicht").Range("Niet_maandelijks").Cells(i, 1)
If Me("Lbl_uitS" & i).Caption = "" Then Me("Txt_somuitS" & i).Visible = False
Next i
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #20 Gepost op: 30 augustus 2021, 09:09:27 »
Goeiemorgen iedereen,

Ik ben volop bezig het UF verder te coderen en ben op een hindernisje gebotst.

Om ook de kleur van de cel uit het werkblad over te nemen in de UF heb ik volgende IF-statement toegevoegd aan mijn For..Next-loop :

If Sheets("Jaaroverzicht").Range("Inkomsten").Cells(i, kol).Interior.Color = RGB(102, 255, 255) Then
    Me("Txt_sominV" & i).BackColor = &HFFFF80
    End If

Maar dit lijkt totaal niet te werken  :(....
Wat doe ik verkeerd?

groetjes,
BlackDevil

***OPGELOST***
het probleem lag in de waarde van de variabele 'kol', excuses voor de overbodige last  ;)
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #21 Gepost op: 30 augustus 2021, 10:29:02 »
Het enige wat me in bovenstaande nog niet gelukt is, is om de juiste notatie aan de textboxen toe te kennen voor de bedragen en de datum maar daar kom ik later nog wel op terug.

Nu dat de basis-code voor de weergave van het UF bij het openen ervan zo goed als af is kom ik graag terug op bovenstaande...

Graag had ik geweten hoe ik de notaties voor de datum en de bedragen in de textboxen naar mijn wens kan laten weergeven.

In excel zelf zijn de getalnotaties zoals ik ze graag gebruik :

voor de datum : dd-mm-jjjjvoor bedragen : € # ##0,00;[Magenta]€ -# ##0,00
hoe vertaal ik dit in VBA voor de gewenste textboxen?

Alvast dank op voorhand.


groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #22 Gepost op: 30 augustus 2021, 11:32:27 »
Lettertype stel je het beste in in de eigenschappen van de textbox, kijk onder font

voor de datum:
Private Sub Txt_datum_AfterUpdate()
Txt_datum = Format(Txt_datum, "dd-mm-yyyy")
End Sub

Voor de getalnotatie van de ingevulde textboxen bij openen userform:
 kan in userform_initialize of userform_activate
Dim ct As Control
For Each ct In Me.Controls
If TypeName(ct) = "TextBox" Then
    If IsNumeric(ct) Then ct.Value = Format(ct, "0.00")
End If
Next ct

Voor de textboxen waarin je zelf een bedrag invult als voorbeeld:
Private Sub Txt_sominS1_AfterUpdate()
Txt_sominS1 = Format(Txt_sominS1, "0.00")
End Sub
Dit zou je dan voor iedere textbox apart moeten doen.
Kan  zeker ook met een KlasseModule (nog niet mijn sterkste kant) misschien iemand anders? :help:
UPDATE:
Kijk eens hier: http://www.snb-vba.eu/VBA_Userform_invoercontrole.html
Groet,

Albert

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #23 Gepost op: 30 augustus 2021, 12:23:59 »
Het event AfterUpdate kan blijkbaar niet met een Klassemodule.
Groet,

Albert

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #24 Gepost op: 30 augustus 2021, 12:33:00 »
@Albert,

Hartelijk dank voor je reactie.

Wat het wijzigen van het lettertype betreft had ik hier geen aanpassingen nodig en sowieso wist ik al hoe ik dat moet wijzigen  :), maar toch bedankt voor de vermelding  ;).


Wat de datum-notatie betreft kan ik hier zeker mee verder denk ik.

Wat de getalnotatie voor de bedragen betreft is het echt wel de bedoeling dat het "€"-teken telkens voor het bedrag ook wordt weergegeven. Vandaar dat ik het voorbeeld (zoals ik het ingeef voor de weergave in een werkblad) had mee vermeld in mijn bericht.
Daarvoor zal ik dan nog wat moeten verder zoeken.

Wat die site (snb-vba) betreft ben ik hier al wel vaker op terechtgekomen maar eerlijk gezegd vind ik de site nogal chaotisch én veel te technisch als je nog niet zo héél veel kent van VBA. Voor diegenen die al wat meer thuis zijn in de VBA-omgeving is deze site wel een goeie informatiebron.

Ik ga nog wat verder zoeken, puzzelen, coderen, ed en laat wel van me horen als ik nog problemen tegenkom.


groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #25 Gepost op: 30 augustus 2021, 13:17:23 »
probeer dit eens.
Private Sub Txt_sominS1_AfterUpdate()
Txt_sominS1 = Format(Txt_sominS1, "€ #,##0.00")
End Sub
Groet,

Albert

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #26 Gepost op: 30 augustus 2021, 15:34:04 »
@Albert,

Bedankt voor je voorstel.
Heb ondertussen zelf al een werkend lijntje code gevonden (maar ben zo gefocused bezig dat ik het hier nog niet heb vermeld).

Binnen mijn loops voor het vullen van de label-namen en de textbox-waarden heb ik volgend lijntje toegevoegd en het werkt (voorlopig althans  ;D)
If Me("Txt_sominV" & i) <> "" Then
  Me("Txt_sominV" & i) = FormatCurrency(Me("Txt_sominV" & i))
End If

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #27 Gepost op: 30 augustus 2021, 17:18:25 »
***UPDATE***

Bij deze voeg ik de recentste versie van mijn bestand toe waar ik twee volle dagen aan gewerkt heb...
Heb wel wat tijd verloren met opzoekingen op het internet maar vandaag heb ik de meeste tijd (toch enkele uurtjes) verloren
door een zeer frustrerende foutmelding waarbij het UF niet meer kon geopend worden.
Na heel lang zoeken en meerdere keren opnieuw wijzigingen in de code aan te brengen had ik uiteindelijk de boosdoener gevonden.
Het was eigenlijk best wel een dom oorzaakje dat zijn oorsprong had in bepaalde waarden op mijn werkblad dat ik uiteindelijk simpel heb kunnen oplossen door een If-statement toe te voegen.
Doordat ik zo vaak diverse wijzigingen had aangebracht omdat ik aanvankelijk dacht dat de fout echt in de opbouw van de code zat was de gehele code nogal chaotisch en onoverzichtelijk geworden.
De laatste tweetal uurtjes heb ik mij dan voornamelijk nog bezig gehouden met de code wat op orde te zetten.
In bijlage dus het resultaat totnogtoe.
Ik weet dat de code zeer amateuristisch is en zeker beter, korter, sneller, efficiënter, enz... kan maar met de beperkte kennis die ik heb van VBA in het algemeen en zeker met de bijna nihil kennis in het coderen van een UF ben ik best tevreden dat ik het totnogtoe werkend heb gekregen  :D.

Nu ga ik mij wat verdiepen in de code die achter de opdrachtknop 'uitvoeren' moet komen en dan nog de code voor de verdere verwerking op de werkbladen zelf.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #28 Gepost op: 30 augustus 2021, 20:11:49 »
Hallo BlackDevil,

Petje af voor voor de vordering. Zelf ben ik ook vaak uren bezig met zoeken en testen.
Je vraagt of de code korter kan:

Volgens mij kun je de 4 a 5 if statements met als voorbeeld
If Me("Txt_sominV" & i) <> "" Then
       Me("Txt_sominV" & i) = FormatCurrency(Me("Txt_sominV" & i)
 End If
vervangen door 1 code
Dim ct As Control
For Each ct In Me.Controls
    If TypeName(ct) = "TextBox" Then
        If IsNumeric(ct) Then ct.Value = FormatCurrency(ct)
    End If
Next ct
Deze regelmatig terugkomende regel kun je instellen in de eigenschappen van de textboxen
Me("Txt_somuitS" & i).TextAlign = fmTextAlignRight
Maakt het meteen al weer wat korter.

Blijft het Format probleem van de textboxen als je bedragen gaat invullen.
Ben ik zelf ook nog niet uit. Met een Klassemodule schijnt het niet te kunnen.
Dan zou je dus voor iedere textbox de code Textbox_afterupdate moeten plaatsen.
Zelf blijf ik zoeken of er toch misschien een mogelijkheid is met een Klassemodule.
Mocht ik iets vinden dan hoor je van me.
SUCCES  :thumbsup:
Groet,

Albert

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: VBA-code versnellen/aanpassen/opschonen...
« Reactie #29 Gepost op: 30 augustus 2021, 20:54:15 »
Hoi allemaal,

Persoonlijk hoef ik in mijn UF geen eurotekens te zien, zolang het op mijn werkblad maar netjes in euro's vermeld staat. Zolang ik maar weet dat het euro's zijn in mijn UF is dat voldoende.
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

 


www.combell.com