Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: wegschrijven in tabel  (gelezen 262 keer)

0 leden en 1 gast bekijken dit topic.

Offline strop2

  • Lid
  • *
  • Berichten: 51
  • Geslacht: Man
  • Oplossing.be
wegschrijven in tabel
« Gepost op: 19 september 2021, 22:49:58 »
Beste oplossers,

In bijlage een klein een bestandje dat een klein formuliertje wegschrijft naar een tabel. Maar ik slaag er niet in om op de eerste vrije rij te laten starten. De waarden worden wel weggeschreven onder elkaar maar die zitten dan niet in de tabel.
Kan iemand mij dit verklaren en een oplossing aanbieden.

Grt.
Strop2

Offline Warme bakkertje

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 147
  • Geslacht: Man
Re: wegschrijven in tabel
« Reactie #1 Gepost op: 19 september 2021, 23:43:50 »
Wijzig deze regel

v = wss.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
in dit.

    With wss
        v = IIf(.Range("A2") = vvbnullstring, 2, .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1)
    End With
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline strop2

  • Lid
  • *
  • Berichten: 51
  • Geslacht: Man
  • Oplossing.be
Re: wegschrijven in tabel
« Reactie #2 Gepost op: 20 september 2021, 08:32:57 »
Hey Warme bakkertje,

Dank voor je oplossing werkt perfect nu.  :thumbsup:

Grt.
strop2

Offline Warme bakkertje

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 147
  • Geslacht: Man
Re: wegschrijven in tabel
« Reactie #3 Gepost op: 20 september 2021, 09:27:33 »
Bedankt voor de feedback en graag gedaan. :)

Succes met je project.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline AD1957

  • Volledig lid
  • **
  • Berichten: 225
  • Oplossing.be
Re: wegschrijven in tabel
« Reactie #4 Gepost op: 20 september 2021, 10:25:29 »
@ Warme bakkertje,

Is het niet beter om gebruik te maken van de tabel ?
Als er een totaalrij aan de tabel wordt toegevoegd gaat het alsnog fout.
Sub wegschrijven()
 With Sheets("Opsomming")
    .ListObjects("Tabel3").ListRows.Add _
    .Range.Resize(, 4) = Array([C5], [B10], [H5], [I10])
    .PivotTables("Draaitabel1").PivotCache.Refresh
 End With

 With Sheets("Form")
    .Range("B5:I10") = ""
    Application.Goto .Range("C5")
 End With

End Sub
Groet,

Albert

 


www.combell.com