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

gegevens op de juiste plaats laten neer zetten

Status
Niet open voor verdere reacties.
Jack Nouws

Jack Nouws

Terugkerende gebruiker
Lid geworden
16 apr 2008
Berichten
1.396
hallo

Ik heb een UserForm gemaakt en daarbij wordt er gezocht naar een lege regel in het werkblad en dan worden gegevens geplaats. Maar nu wil ik dat hij naar een naam zoekt (in dit geval plantnaam) en dan naar een lege regel en dan pas plaatsen. Deze naam is altijd variabel want deze wordt vanuit een combobox geladen. Zou dat mogelijk zijn om dit te kunnen verwezelijken?

Met vr gr
Jack
 

Bijlagen

Laatst bewerkt:
Jack Nouws,

Ik kan je userform niet openen, denk dat het ergens naar gelinkt staat.
Als ik het userform bekijk is het de zelfde als bij een paar vragen terug (order invoeren)
Stel je heb 5 klanten met de een besteling waar de zelfde plant in zit.
Dan ga je volgens mij al deze wijzigen of snap ik het nu niet.
 
Laatst bewerkt:
Hoornvan zei:
Jack Nouws,

Ik kan je userform niet openen, denk dat het ergens naar gelinkt staat.
Als ik het userform bekijk is het de zelfde als bij een paar vragen terug (order invoeren)
Stel je heb 5 klanten met de een besteling waar de zelfde plant in zit.
Dan ga je volgens mij al deze wijzigen of snap ik het nu niet.
Klik om te vergroten...

Ja dat was wel de bedoeling;)
 
Jack Nouws,
Hier onder het begin stukje van de code dat ik gebruik om adres gegevens te verandere CQ wijzigen.
Ik denk dat je zo iets moet gebruiken om de plantnaam te vinden.
Ik kan het formulier niet openen (geeft een fout melding) ik denk dat het gelinkt is.

Code: 
If cboNaam.Value <> "" Then
        With Sheets("Adressen").Range("B2:B100")
            Set WS = .Find(cboNaam.Value, LookIn:=xlValues, LookAt:=xlWhole)
            txtStraat.Value = Worksheets("Adressen").Cells(WS.Row, "C"
 
Laatst bewerkt:
Jack Nouws,

Ik ben even met de macro bezig geweest, zonder resultaat.
De bedoeling is eigenlijk om een lege regel er tussen te voegen, in de help kan ik er niets over vinden.
Morgen zal ik nog wel even kijken of het me lukt.
 
Hoornvan zei:
Jack Nouws,

Ik ben even met de macro bezig geweest, zonder resultaat.
De bedoeling is eigenlijk om een lege regel er tussen te voegen, in de help kan ik er niets over vinden.
Morgen zal ik nog wel even kijken of het me lukt.
Klik om te vergroten...

Juist dat is precies de bedoeling ja
alleen jammer dat je vandaag geen tijd hebt
Morgen heb ik misschien geen tijd:confused:

Groetjes Jack
 
Hallo
Dit zou een lege regel moeten worden maar hoe krijg ik die werkend?

Code: 
    Cells.Find(What:=[COLOR="Red"]"cabe"[/COLOR], LookIn:=xlValues, LookAt:=xlWhole).Activate
    Range("A" & ActiveCell.Offset(1, 0).Row).Value = ""
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
"cabe" moet CboPlantnaam worden


Code: 
Private Sub CmdOK_Click()
Dim MyRange             As Variant
Dim c                   As Range
Dim i                   As Long
Set MyRange = Worksheets("Inkoop")
ActiveSheet.Unprotect


'tegen flikkeren van beeldscherm
Application.ScreenUpdating = False



[COLOR="Red"]legeregel = ????[/COLOR]

If FrmOrderInkoop.txtNaam.Text = "" Then
    MsgBox "!! Je hebt niemand geselecteerd !!"
    MsgBox "!!  Er is dus niets gewijzigd  !!"

Else

    'wat gaan we opslaan
    
            MyRange.Range("C" & legeregel) = FrmOrderInkoop.txtOrdernr.Value
            MyRange.Range("D" & legeregel) = FrmOrderInkoop.txtDatum.Value
'            MyRange.Range("C" & legeregel) = FrmOrderInkoop.txtPlntCode.Value
'            MyRange.Range("D" & legeregel) = FrmOrderInkoop.CboPlantnaam.Value
            MyRange.Range("E" & legeregel) = FrmOrderInkoop.txtPotmaat.Value
            MyRange.Range("F" & legeregel) = FrmOrderInkoop.txtPrijs.Value
            MyRange.Range("G" & legeregel) = FrmOrderInkoop.txtAantal.Value
            MyRange.Range("J" & legeregel) = FrmOrderInkoop.txtKlntcode.Value
            MyRange.Range("K" & legeregel) = FrmOrderInkoop.txtBedrijfsnaam.Value
            MyRange.Range("L" & legeregel) = FrmOrderInkoop.CboKlantnaam.Value
            MyRange.Range("M" & legeregel) = FrmOrderInkoop.txtAdres.Value
            MyRange.Range("N" & legeregel) = FrmOrderInkoop.txtHnr.Value
            MyRange.Range("O" & legeregel) = FrmOrderInkoop.txtPC.Value
            MyRange.Range("P" & legeregel) = FrmOrderInkoop.txtPlaats.Value
          
        End If
    

'tegen flikkeren van beeldscherm
Application.ScreenUpdating = True
 
Jack Nouws,

Het werkt nog niet zoals ik wil.
Hij voegt wel een regel eronder maar niet onderaan, de regel komt onder de plantnaam.
Kijk even, de gegevens kun je nog niet wegschrijven, je zal dan eerst de macro moeten aanpassen.
Hij geeft een fout melding.
 

Bijlagen

Laatst bewerkt:
Hoornvan zei:
Jack Nouws,

Het werkt nog niet zoals ik wil.
Hij voegt wel een regel eronder maar niet onderaan, de regel komt onder de plantnaam.
Kijk even, de gegevens kun je nog niet wegschrijven, je zal dan eerst de macro moeten aanpassen.
Hij geeft een fout melding.
Klik om te vergroten...

Wim;

Hij hoeft alleen maar een regel er tussen te plaatsen en een regel eronder is niet nodig, want de plantcode en plantnaam zijn al eerder geplaatst. Wat de macro betreft: Kun je de gegevens niet in de rij van de aktieve cel laten plaatsen?
Klik om te vergroten...
 
Jack Nouws,

Hij hoeft alleen maar een regel er tussen te plaatsen
Klik om te vergroten...
Dit is dan goed.
Wat de macro betreft: Kun je de gegevens niet in de rij van de aktieve cel laten plaatsen?
Klik om te vergroten...
Ik ben net weer thuis en zal proberen om de gegevens weg te laten schrijven.
Heb je het zelf al geprobeerd?
 
Hoe gaan we opslaan ?

Code: 
Private Sub CmdOK_Click()
  Sheets("Inkoop").cells(rows.count,1).end(xlup).resize(,13) =split( txtOrdernr & "|" & txtDatum & "|" & CboPlantnaam & "|" & txtPotmaat & "|" & txtPrijs & "|" & txtAantal & "|" & txtKlntcode & "|" & txtBedrijfsnaam & "|" & CboKlantnaam & "|" & txtAdres & "|" & txtHnr & "|" & txtOrdernr & "|" & txtPC & "|" & txtPlaats,"|")
End Sub
Tegen schermflikkering hoeft niets gedaan te worden, omdat er maar 1 bewerking op het scherm plaatsvindt, die meteen getoond moet worden.
 
snb,

Bedankt voor de code.
Alleen schrijft hij de gegevens niet in de toegevoegde regel (dat is de bedoeling)
 
Jack Nouws,

Ik denk dat het nu voor elkaar is.
 

Bijlagen

Laatst bewerkt:
Hoornvan zei:
Jack Nouws,

Ik denk dat het nu voor elkaar is.
Klik om te vergroten...

Beste Wim;

Zou je me nog een keer kunnen helpen met het volgende?
Nu wil ik graag partijen afboeken. Zoals je kunt zien, heb ik 1 partij geboekt.
er zijn nl. 500 planten geleverd van de inkoop staande 2000
rest nog 1500 planten te leveren.
Stel: de volgende levering is 600 planten.
dan wil ik kunnen zien hoeveel planten er in totaal geleverd zijn, (1100)
en hoeveel planten er nog geleverd moeten worden. (900)

Ik heb er al een behoorlijke tijd aan besteed maar zou jij hier ook eens naar willen kijken?

Met vr gr
Jack
Klik om te vergroten...
 

Bijlagen

Laatst bewerkt:
Jack Nouws,

Zo te zien is het naar je zin wat ik gedaan heb.
Ik heb er al een behoorlijke tijd aan besteed maar zou jij hier ook eens naar willen kijken?
Klik om te vergroten...
Ik zal er naar kijken maar of het me ook lukt weet ik nog niet.
 
Hoornvan zei:
Jack Nouws,

Zo te zien is het naar je zin wat ik gedaan heb.

Ik zal er naar kijken maar of het me ook lukt weet ik nog niet.
Klik om te vergroten...

Ja zeker je hebt het perfekt voor elkaar, Het werkt precies zoals ik wilde. ;):thumb:
 
Op een 'nieuwe' regel:

Code: 
Private Sub CmdOK_Click()
  Sheets("Inkoop").cells(rows.count,1).end(xlup).[COLOR="Red"]offset(1).[/COLOR]resize(,13) =split( txtOrdernr & "|" & txtDatum & "|" & CboPlantnaam & "|" & txtPotmaat & "|" & txtPrijs & "|" & txtAantal & "|" & txtKlntcode & "|" & txtBedrijfsnaam & "|" & CboKlantnaam & "|" & txtAdres & "|" & txtHnr & "|" & txtOrdernr & "|" & txtPC & "|" & txtPlaats,"|")
End Sub
 
snb zei:
Op een 'nieuwe' regel:

Code: 
Private Sub CmdOK_Click()
  Sheets("Inkoop").cells(rows.count,1).end(xlup).[COLOR="Red"]offset(1).[/COLOR]resize(,13) =split( txtOrdernr & "|" & txtDatum & "|" & CboPlantnaam & "|" & txtPotmaat & "|" & txtPrijs & "|" & txtAantal & "|" & txtKlntcode & "|" & txtBedrijfsnaam & "|" & CboKlantnaam & "|" & txtAdres & "|" & txtHnr & "|" & txtOrdernr & "|" & txtPC & "|" & txtPlaats,"|")
End Sub
Klik om te vergroten...

Nee, dit moet in de zelfde regel komen te staan, om het wat lastiger te maken:p
 
Jack Nouws,

Ik heb gezien wat er fout gaat.
Maar hoe los ik het op?
Hij ziet txtGelev + txtTotGelev als text en vertikt het om ze op te tellen je krijgt dan 500600.
Zet ik b.v.b. A = 1 + 2 dan komt er 3 te staan(zo als het hoort)
In het controle venster zie je als hij de 2 textboxxen leest "500" en "600" staan.
Dit zou echter 500 + 600 moeten wezen.
Dus puzzelen we gewoon verder, staks ga ik naar een verjaardag, morgen ga ik wel weer verder.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan