VBA code kolom verwijderen met invulfomulier

[Mestreech1]

Hallo,

Ik ben op zoek naar vba code die - na invullen van 2 velden in een formulier - alle kolommen verwijderd welke liggen tussen de genoemde kolommen in het formulier (Inclusief de genoemde kolommen)

Al ik dus invul veld 1 = kolom Z, veld 2 = kolom AK dan moeten de kolommen Z t/m AK definitief verwijderd worden
Het fomulier heb ik al, de vba om een vast genoemd veld te verwidjeren ook, echter hoe krijg ik nu de vaste velden naar de variabel genoemd in het invulformulier?

 

[Warme bakkertje]

sheets("blabla").Columns(Veld 1 & ":" & Veld 2).Delete

 

[snb]

Wil je de kolommen leegmaken ? wil je de kolommen leegmaken inclusief opmaak ? wil je de kolommen verwijderen ?

Gebruik je een werkblad als 'formulier', een databaseform als 'formulier', een userform als 'formulier' ?

Ik heb zelden bezwaar tegen duidelijke vragen.

 

[Mestreech1]

Wil je de kolommen leegmaken ? wil je de kolommen leegmaken inclusief opmaak ? wil je de kolommen verwijderen ?

Gebruik je een werkblad als 'formulier', een databaseform als 'formulier', een userform als 'formulier' ?

Ik heb zelden bezwaar tegen duidelijke vragen.

Hallo, ik gebruik een Userform als pop up formulier in de excelsheet
Daar geef ik in 2 velden (start / Einde) de begin en eindkolom op.
Vervolgens moet via de "OK "knop de genoemde (inclusief tussenliggende ) kolommen geheel verwijderd worden

BVD voor de hulp.

 

[Mestreech1]

Heren, Dames?

Het werkt.
Eerst roep ik via de code:

Private Sub Workbook_Activate()

Load FrmVerwKol
FrmVerwKol.Show

End Sub

een userform genaamd FrmVerwKol op.
Hiergeef ik de velden TxtSk en TxtEK de waardes van de kolommen op
Via de knop "OK" start ik onderstaande code op:

Private Sub CmdOK_Click()

Columns(TxtSK & ":" & TxtEK).Delete

End Sub

Hoe simpel kan het zijn
Was veel te ver aan het zoeken.

Nogmaals bedankt voor de moeite.

 

[snb]

Gebruik svp code tags !

het kan nog simpeler en robuuster:

Private Sub Workbook_Activate()
  FrmVerwKol.Show
End Sub

Private Sub CmdOK_Click()
  sheets(1).Columns(TxtSK.Text & ":" & TxtEK.Text).Delete
End Sub

 

[Mestreech1]

Hallo SNB
Simpeler?
Ik heb volgens mij minder code staan?
Robuuster?
Mag ik vragen wat je daarmee bedoelt? Met jou code van CMDOK.click zie ik dat je hard sheet 1 kiest, en de velden nog .text erachter zet.
Geeft dit meer toegevoegde waarde?

Vriendelijke groet
Mestreechteneer

 

[snb]

Lees de hulpbestanden van de VBEditor eens door bij Load, unload en show.
En vervolgens de eigenschappen van besturingselementen in een userform.
En tenslotte de relatie tussen de plaats van een code (in welke codemodule) en de betekenis van Range zonder voorafgaande verwijzing.

 

[Mestreech1]

OK !!

Ik snap nu wat je bedoelt en heb de code inmiddels aangepast.

Dank voor je snelle hulp
:thumb: