• 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.

Wegschrijven naar gesloten bestanden??

Status
Niet open voor verdere reacties.
B

bleupigeon

Gebruiker
Lid geworden
26 sep 2003
Berichten
101
Hallo forum leden, hoe kan ik regel A1 t/m A(x) dus afhankelijk van het aantal ingevulde cellen! Indien mogelijk is naar twee gesloten bestanden wegschrijven?

Dus van WERKBESTAND naar TOTAAL-bestand en tevens naar VERZEND bestand.

In het TOTAAL-bestand staan dus al reeds eerder weggeschreven regels van A1 tot Ax
En moet de weg te schrijven regel A1 t/m Ax in de eerstvolgende lege regel komen te staan.

Groet Rosa.
 
Bedankt voor de tip, ik heb deze bekeken en zal proberen er wat van te begrijpen!!
mijn kennis van VBA is echter nilhil.
Maar ga het toch proberen!!

Groet, Rosa:confused::confused:
 
Ik veronderstel dat je regel bedoelde met je A1 - Ax
Code: 
Sub Overdragen()
With Application
    .ScreenUpdating = False
[Blad1!A1].Resize(, [IV1].End(xlToLeft).Column).Copy
Workbooks.Open "C:\Excel\Totaal.xls" 'Pad nog aan te passen
[Blad1!A65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues
ActiveWorkbook.Close True
Workbooks.Open "C:\Excel\Verzend.xls" 'Pad nog aan te passen
[Blad1!A65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues
ActiveWorkbook.Close True
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub
 
Om het onzichtbaar te doen

Code: 
Sub wegschrijven()
  sq=Workbooks("werkbestand.xls").sheets(1).usedrange.columns(1)

  for j=1 to 2
  With Getobject("C:\Excel\" & choose(j,"Totaal","Verzend") & ".xls")
     .sheets(1).cells(rows.count,1).End(xlUp).Offset(1).resize(ubound(sq))=sq
     .Save
     .Close False
  End with
End Sub
 
Bedankt heren, ik ga proberen hier iets van te maken.
Ondanks de zeer beperkte kennis van VBA.

Groet, Rosa.:rolleyes::rolleyes:

p.s. met A1 tot en met A(x) bedoel ik dat er een variabele lengte van cellen moet wordt weggeschreven.
 
Laatst bewerkt:
k ben aan het proberen geweest, maar weet niet hoe ik de routine moet aanroepen activeren!
heb dus maar een voorbeeldje neer gezet.
Nu maar afwachten of dit duidelijk overkomt!!

Groet Rosa:(:confused::(:confused:
 

Bijlagen

Laatst bewerkt:
Hallo Rudi, diversen testen gedaan.
Maar mij lukt het niet. Er komt steeds een error (Kan bestand niet vinden)
Daarom de bestand namen terug gebracht naar Verzend = V. En Totaal = T
Ook de code regels aangepast
Ook beide bestanden geopend, en getracht te testen.
Enig idee?
 

Bijlagen

Laatst bewerkt:
Eigenlijk niet want hier werkt het perfect. is het pad juist? Zijn de bestandsnamen correct? Is de bestandsextensie juist (xlsx ipv xls)
 
Bijgesloten een mapje, ik heb de bestanden met naam wijzigen opgeslagen als Totaal.xlsx
en Verzend.xlsx.

Werk met 2007.Gezocht in het menu OPSLAAN ALS : xlsx deze hier niet kunnen vinden.

Alle drie de bestanden: Werkbestand, Verzend.xlslx en Totaal.xlsx staan nu in de directory
D:
 

Bijlagen

Rosa, gooi al jouw bestanden overboord en kopieër onderstaande bestanden naar D:\
Dit loopt hier als een zonnetje, dus zoals ik al zei kan dit enkel een verkeerd pad, een verkeerd gespelde bestandsnaam of een foutieve extensie zijn. Dit kan niet misgaan.
 

Bijlagen

Hallo Rudi, even stoeien maar 't werkt nu echt. Heel leuk toch weer!!!
Struikelde nog even dat de cursor altijd naar kolom A gebracht moet worden.
Vraag: kan deze opdracht door het programma gedaan worden?

We gaan nog even stoeien welke van de 2 weg schrijf methoden het best zijn voor ons!!

Alvast wederom bedankt, Rosa:):):)

k hou je op de hoogte
 
Rosa, het probleem is dat het steeds een andere rij is die weggeschreven moet worden, de rijlengte variabel is en ook dat een rij niet altijd volledig ingevuld is. Daarom had ik geopteerd om te werken vanuit de cel meest links v/d rij(de datumcel) omdat deze toch steeds ingevuld gaat worden.
 
Hallo Rudi,

het werk nu perfect, wederom hartelijk dank.

;);):thumb:;);)

Groet van Rosa,
 
Hallo Rudi,

Het werk nu echt naar wens, hartelijk dank hiervoor!!

Tot de volgende ronde zullen we zo langzamerhand maar zeggen!!


Groet van Rosa ;);):thumb:;);)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan