• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Een selectie in een nieuw bestand

Status
Niet open voor verdere reacties.

WIMLIN

Gebruiker
Lid geworden
17 jul 2007
Berichten
429
Kan ik middels opnemen van een macro een bepaald bereik in een nieuw bestand plaatsen.

Ik heb nu een macro opgenomen maar ik heb twee problemen.

1. Ik heb nu een bereik van drie regels maar de volgende keer kunnen dat er wel 10 zijn of 1.
2. Het wordt wel geplakt in een ander bestand maar niet in A1.
 
Beste WIMLIN ;)

Zet eerst uw vragen op opgelost voordat we u verder helpen.

35 van de 54 staan niet op opgelost :evil:

Groetjes Danny. :thumb:
 
Vragen op opgelost

Beste Danny,

Ik heb vandaag 2 vragen gepost in Excel en ik heb nog 1 openstaande post in Outlook. Waar ik nog geen oplossing voor hebt. Maar hoe kan ik zien dat ik nog 35 niet opgeloste vragen heb. Ik heb net geprobeerd alles wat ik mijn naam zag te veranderen in de status opgelost.


Zet eerst uw vragen op opgelost voordat we u verder helpen.

35 van de 54 staan niet op opgelost :evil:

Groetjes Danny. :thumb:
 
Beste WIMLIN ;)

Klik op de naam onder je topic titel bij onderwerp/auteur
Ga dan naar statistieken en klik op "Zoek alle vragen die gestart zijn door WIMLIN "
Hier zie je alles wat gepost is door jou.

Groetjes danny. :thumb:
 
Klik op de naam onder je topic titel bij onderwerp/auteur
Ga dan naar statistieken en klik op "Zoek alle vragen die gestart zijn door WIMLIN "
Hier zie je alles wat gepost is door jou.

Groetjes danny. :thumb:

Danny,

Bedankt voor de tik. Ik wist niet dat je dit zo kon doen. Ik heb nu als ik het goed heb gedaan dus nog drie topics open staan. De ene excel vraag kan ik waarschijnlijk morgen ook opgelost zetten. Ik ben zelf nl. altijd nogal van het up to date houden van bestanden had ik hier zo'n bende van gemaakt. Terwijl ik al zoveel gemakt van Helpmij heb gehad.

Ik hoop dat ik nu toch weer antwoorden ga krijgen op deze vraag.

Wim
 
Beste WIMLIN ;)

Kan ik middels opnemen van een macro een bepaald bereik in een nieuw bestand plaatsen.

Ik heb nu een macro opgenomen maar ik heb twee problemen.

1. Ik heb nu een bereik van drie regels maar de volgende keer kunnen dat er wel 10 zijn of 1.
2. Het wordt wel geplakt in een ander bestand maar niet in A1.

Je zou een macro kunnen schrijven die naar een bereik verwijst dat in een cel staat dat je telkens kan aanpassen.

Vb. in Cel A1 zet je A2:E9, dit bereik wordt dan opgenomen in je macro.

Groetjes Danny. :thumb:
 
macro

Maar in mijn voorbeeld heb ik al een macro opgenomen. Maar ik krijg wel een idee door je bereik idee. Ik laat gewoon 3000 regels kopieren. Dan moet het altijd goed gaan. Zoveel adressen krijg ik toch niet.
 
Dat klink niet erg slim.
Zoek eens op currrentregion in de hulp van de VBEditor.
 
Macro

Dat klink niet erg slim.
Zoek eens op currrentregion in de hulp van de VBEditor.

Helaas SNB kan ik alleen macro maken middels de opname knop.

Dit is nu mijn code geworden
Code:
Sub MailingBestand()
'
' MailingBestand Macro
' De macro is opgenomen op 19-02-2010 door WimLin.
'

'
    Range("H17").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("H17:AA1689").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Application.Goto Reference:="R1C1"
    Application.CutCopyMode = False

End Sub

Maar ik zou er wel meer van willen weten. Maar waar kan ik een goed nederlandstalig boek voor beginners vinden?
 
Laatst bewerkt:
Een voorstel dat nog getest en wellicht lichtjes aangepast dient te worden:

Code:
Sub MailingBestand()
    Workbooks.Add
    With ThisWorkbook.Sheets(1).Range("H17").CurrentRegion.SpecialCells(xlCellTypeVisible)
        Cells(1).Resize(.Rows.Count, .Columns.Count) = .Value
    End With
    Columns.AutoFit
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan