Vba macro onderbreken met msgbox, handmatige handeling, en weer door

[1965Peter]

Hallo,

Kan ik een macro onderbreken dmv msgbox met tekst:"Vul de kolommen",
dat ik dan een handmatige handeling kan uitvoeren, en dmv "ok knop" weer verder met de macro?

 

[OctaFish]

Heb je het al geprobeerd? Dan weet je het .

 

[snb]

Waarom kan de macro gestart worden als nog niet aan alle voorwaarden is voldaan ?

 

[1965Peter]

probleem is dat ik 2 kolommen ergens vandaan moet halen die elke maand op een andere plek staan, dus dacht ik, dmv msgbox de opdracht te stoppen, handmatig de kolommen erbij zetten, en dan op de ok van de msgbox drukken zodat deze verder gaat. Ik heb dit geprobeerd, alleen kan ik niets uitvoeren, en alleen op ok drukken. Andere oplossing zou zijn dat de macro dan stopt en dat ik een vervolg maak. Maargoed dat zou de laatste oplossing zijn als het andere niet kan.

 

[edmoor]

Je kan de gewenste kolommen ook selecteren en dan pas verder gaan.
Dan heb je de range die moet worden gekopieerd.
Bijvoorbeeld:

Sub CelSelect()
    Dim rng As Range
    Set rng = Application.InputBox("", "Selecteer het gewenste bereik", , , , , , 8)
End Sub

 

[1965Peter]

Hallo Edmoor, probeer uit te voeren wat je zegt, maar gebeurt niets. Dan toch maar even een bestand erbij.

Kolommen A tm F worden gevuld met Data. (tab Facturatie voorstel)
Dan moet ik uit tab Jaaroverzicht, voor deze maand kolom K & L invoegen in tab Facturatie voorstel G:H
Dit zijn dus elke maand andere kolommen, vandaar dacht ik, dat ik dat dus handmatig doe, en daarna weer verder met de macro.

 

[edmoor]

Dat bestand bevat geen macro's.
Mijn voorbeeld haalt alleen de gekozen range op.
Het is aan jou wat je daar verder mee wilt doen.

 

[1965Peter]

Ja die snap ik, stel ik kies dan voor kolom K & L.
Dan krijg ik deze niet geplakt in G & H.
Als dat zou kunnen zou dat perfect zijn.

 

[edmoor]

Je moet ook niet plakken.
Je moet VBA de opracht geven om die gekozen range te kopieren of te verplaatsen naar G & H.

 

[1965Peter]

Dacht er te zijn, maar rng.select accepteert ie niet. Volgens mij zit ik in de goede richting?Of toch niet?

Sub CelSelect()
    Dim rng As Range
    Set rng = Application.InputBox("", "Selecteer het gewenste bereik", , , , , , 8)
   rng.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Copy
    Sheets("Facturatie Voorstel").Select
    Columns("G:G").Select
   Selection.Copy
    Sheets("Facturatie Voorstel").Select
    Columns("G:G").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[edmoor]

Nooit .Select gebruiken.
Probeer deze maar eens:

Sub CelSelect()
    Dim rng As Range
    Set rng = Application.InputBox("", "Selecteer het gewenste bereik", , , , , , 8)
    Columns("G:H").Value = Sheets("Jaaroverzicht").Range(rng.Address).Value
End Sub

 

[1965Peter]

Yeahh, dat is 'm. Super bedankt Edmoor! Ik kan weer verder.

 

[edmoor]

Hij doet nu de hele kolommen.
Je kan het wat optimaliseren door alleen het gebruikte bereik te kopiëren.

 

[1965Peter]

Kolommen is wel best, ivm variabel aantal regels. ik pas mijn target kolom wel aan

 

[snb]

em ook geen overbodige variabelen:

Sub M_snb()
  with Application.InputBox("", "Gebied", , , , , , 8)
      .cells(1,7).resize(.rows.count,.columns.count)= .Value
  end with
End Sub

 

[edmoor]

Netjes
Een variabele zet ik er bij mocht bij TS de Option Explicit aan staan.

 

[snb]

Daar heeft een code zonder variabele geen last van...

 

[edmoor]

Klopt.
In jouw versie is die helemaal overbodig

 

[snb]

Die msgbox is overigens overbodig als je met de cursor in de 1e te kopiëren kolom gaat staan:

Sub M_snb()
  activecell.columns(1).specialcells(2).resize(,2).copy sheets(1).cells(1,7)
End Sub