Data Copy via excel naar ander bestand

[wampier]

nee, je moet je inputbox voor de FOR loop plaatsen in de invoer ervan opslaan in een variabele en die gebruiken. nu wordt voor elke regel invoer gevraagd

henk = inputbox("accountnummer ?")
for i = 2 to ...
        If (Sheets("Blad1").Cells(i, "A").Value = henk And Sheets("Blad1").Cells(i, "G").Value = (2)) Then

 

[rob06052014]

Ok dank! Ga ik morgen testen

 

[rob06052014]

Ok, werkt goed !

Twee inputboxes toegevoegd voor het accountnr en de de maand:

Dim Accountnr As String
Dim Maandnr As String

Accountnr = InputBox("Accountnr?")
Maandnr = InputBox("Maand?")

 

[rob06052014]

Dank voor je hulp!
Ik ga het nu proberen toe te passen in de echte bestanden waarvoor ik deze info nog had.

 

[rob06052014]

Bij de echte bestanden die ik gebruik loop ik tegen een probleem aan bij het gebruik van de volgende code:

Sheets("Verkoopfacturen").Cells(i, "A").Copy Destination:=Workbooks("Map2.xls").Sheets("Blad2").[A60000].End(xlUp).Offset(1)
Sheets("Verkoopfacturen").Cells(i, "O").Copy Destination:=Workbooks("Map2.xls").Sheets("Blad2").[B60000].End(xlUp).Offset(1)

Het probleem is dat de waarden in het bronbestand in kolom O zijn bepaald via een formule in die cel, die formule wordt gewoon hard gekopieerd en in het bestand geplaatst en geeft daarbij ook nog eens een verkeerde waarde erbij.
Hoe kan ik de code aanpassen zodat alleen de waarden wordt gekopieerd van de cel?

 

[wampier]

dat kan met pastespecial, of in plaats van copy gebruiken gewoon de values met vba invullen.

http://msdn.microsoft.com/en-us/library/office/ff839476(v=office.15).aspx

 

[rob06052014]

is inmiddels ook afgehandeld Veel dank voor je hulp!