houston we have a problem, via userform naar eerste blanco, maar niet lege rij

[geron58]

dag allemaal
première voor mij

via mijn userform wil ik in de eerste lege rij van kolom A een 10-tal gegevens in die rij wegschrijven, niet allemaal naast elkaar
op sommige plaatsen in de rij staat een formule (dus de hele rij is niet leeg)

via de als-formule heb ik de formulecellen blanco gemaakt (vb =als(a10="";"";som(a10:c10)) tot de gegevens ingevuld worden via dat userform
dat werkt allemaal, toch als ik niet op voorhand de formules er in plaats, dus als ik de formules verwijder, en de cel echt leeg maak werkt het, maar ik wil de formules laten staan natuurlijk

ik slaag er niet in, ik denk wel dat dat wel zou moeten kunnen
alvast hartelijk dank voor de hulp
ron
ps heb nooit met VBA gewerkt, enkel wat ervaring met ObjectPal van Paradox

 

[Maximvdw]

Hallo, Welkom op Helpmij,

Heb je al een stukje code dat je zelf hebt geschreven?
Zet deze dan even tussen

 tags zodat we al iets beter weten wat je wil berijken

Dus als ik je goed begrijp wil je in Excel (VBA) uit een userform (Gebruikersinvoer)
de gegevens die hier worden ingevuld, tonen in rij a?
Kan je is proberen om te controlleren of een cel niet leeg is, vooralleer je deze vult met de gegevens?

PS: Begin je titel best zo objectief mogelijk ;) zo zien mensen sneller wat er mis is
en of ze kunnen helpen
Aangezien we op de homepage nu enkel "Houston we have a problem , v..." zien ;)

Met Vriendelijke Groeten,
Maximvdw

 

[geron58]

mercikes
hier is de info

Private Sub cmduitvoeren_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("fichebak")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
If Trim(Me.Txtdatum.Value) = "" Then
  Me.Txtdatum.SetFocus
  MsgBox "gelieve datum in te vullen"
  Exit Sub
End If
If Trim(Me.txtkl.Value) = "" Then
  Me.txtkl.SetFocus
  MsgBox "gelieve klant in te vullen"
  Exit Sub
End If
If Trim(Me.Txthandeling.Value) = "" Then
  Me.Txthandeling.SetFocus
  MsgBox "gelieve de behandeling in te vullen"
  Exit Sub
End If
If Trim(Me.txtTypeHaar.Value) = "" Then
  Me.txtTypeHaar.SetFocus
  MsgBox "gelieve haartype in te vullen"
  Exit Sub
End If

'copy the data to the database

    .Cells(iRow, 1).Value = Me.Txtdatum.Value
    .Cells(iRow, 2).Value = Me.txtkl.Value
    .Cells(iRow, 3).Value = Me.Txthandeling.Value
    .Cells(iRow, 4).Value = Me.txtextensions.Value
    .Cells(iRow, 6).Value = Me.txtTypeHaar.Value
    .Cells(iRow, 7).Value = Me.txtart.Value
    .Cells(iRow, 8).Value = Me.txtAantalArtikel.Value
    .Cells(iRow, 10).Value = Me.txtCadeauBon.Value
'  .Protect Password:="password"
End With

'clear the data
Me.Txtdatum.Value = ""
Me.txtkl.Value = ""
Me.Txthandeling.Value = ""
Me.txtextensions.Value = ""
Me.txtTypeHaar.Value = ""
Me.txtart.Value = ""
Me.txtAantalArtikel.Value = ""
Me.txtCadeauBon.Value = ""

Me.Txtdatum.SetFocus
End Sub

ben je hier iets mee?
in kolom E staat dan de eerste formule, die gaat vertikaal zoeken naar de prijs, zo staan er nog andere formules in andere kolommen
tussenin komen dan gegevens uit het userform, dat is een form met comboboxen, verplichte velden om in te vullen, en optionele velden die mogen, maar niet moeten ingevuld worden
hopelijk is het wat duidelijker voor je
gr
ron