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

code vr 1 lijn te wissen

Status
Niet open voor verdere reacties.
G

grema

Gebruiker
Lid geworden
2 dec 2006
Berichten
659
de laatste voor vandaag ;

in mijn bestelprogramma dat ik maakte zoek ik nog een code om 1 lijn ( willekeurig te verwijderen ) zodanig dat de rest van de bestelde artiekels nog in het bestand blijven staan en de reeds bestaande formules niet vastlopen


bijlage vb doc .
 
Laatst bewerkt:
hier de code ( een stukje eruit )
zal handiger zijn om even naar te kijken :

Code: 
    For Each c In MyRangeII.Range("A3:A300")
        If c = stZoekenLinks And c.Offset(, 1) = stZoekenRechts Then
            With MyRangeII.Range("A" & c.Row)
                .Offset(, 0) = Application.WorksheetFunction.Proper(txbVoornaam.Text)
                .Offset(, 1) = Application.WorksheetFunction.Proper(txbAdres.Text)
                .Offset(, 2) = txbTelefoonnummer.Text
                .Offset(, 3) = txbGSM.Text
                .Offset(, 4) = txbArtikel1.Text
                .Offset(, 5) = txbArtikel1aantal.Text
                .Offset(, 6) = txbStokartikel1.Text
                .Offset(, 7) = "=F" & c.Row & "-G" & c.Row
                .Offset(, 8) = txbArtnr1.Text
                .Offset(, 9) = TxbLev1.Text
                .Offset(, 11) = txbArtikel2.Text
                .Offset(, 12) = txbArtikel2aantal.Text
                .Offset(, 13) = txbStokartikel2.Text
                .Offset(, 14) = "=M" & c.Row & "-N" & c.Row
                .Offset(, 15) = TxbArtnr2.Text
                .Offset(, 16) = TxbLev2.Text
                .Offset(, 17) = Txbfaktnr2.Text
                .Offset(, 18) = txbArtikel3.Text
                .Offset(, 19) = txbArtikel3aantal.Text
                .Offset(, 20) = txbStokartikel3.Text
                .Offset(, 21) = "=T" & c.Row & "-U" & c.Row
                .Offset(, 22) = Txbartnr3.Text
                .Offset(, 23) = TxbLev3.Text
                .Offset(, 24) = Txbfaktnr3.Text
                .Offset(, 25) = txbArtikel4.Text
                .Offset(, 26) = txbArtikel4aantal.Text
                .Offset(, 27) = txbStokartikel4.Text
                .Offset(, 28) = "=AA" & c.Row & "-AB" & c.Row
                .Offset(, 29) = TxbArtnr4.Text
                .Offset(, 30) = TxbLev4.Text
                .Offset(, 31) = Txbfaktnr4.Text
                .Offset(, 32) = txbArtikel5.Text
                .Offset(, 33) = txbArtikel5aantal.Text
                .Offset(, 34) = txbStokartikel5.Text
                .Offset(, 35) = "=AH" & c.Row & "-AI" & c.Row
                .Offset(, 36) = TxbArtnr5.Text
                .Offset(, 37) = TxbLev5.Text
                .Offset(, 38) = Txbfaktnr5.Text
                .Offset(, 39) = txbArtikel6.Text
                .Offset(, 40) = txbArtikel6aantal.Text
                .Offset(, 41) = txbStokartikel6.Text
                .Offset(, 42) = "=AO" & c.Row & "-AP" & c.Row
                .Offset(, 43) = TxbArtnr6.Text
                .Offset(, 44) = TxbLev6.Text
                .Offset(, 45) = Txbfaktnr6.Text
                .Offset(, 46) = txbArtikel7.Text
                .Offset(, 47) = txbArtikel7aantal.Text
                .Offset(, 48) = txbStokartikel7.Text
                .Offset(, 49) = "=AV" & c.Row & "-AW" & c.Row
                .Offset(, 50) = TxbArtnr7.Text
                .Offset(, 51) = TxbLev7.Text
                .Offset(, 52) = Txbfaktnr7.Text
                .Offset(, 53) = txbArtikel8.Text
                .Offset(, 54) = txbArtikel8aantal.Text
                .Offset(, 55) = txbStokartikel8.Text
                .Offset(, 56) = "=BC" & c.Row & "-BD" & c.Row
                .Offset(, 57) = TxbArtnr8.Text
                .Offset(, 58) = TxbLev8.Text
                .Offset(, 59) = Txbfaktnr8.Text
                .Offset(, 60) = txbArtikel9.Text
                .Offset(, 61) = txbArtikel9aantal.Text
                .Offset(, 62) = txbStokartikel9.Text
                .Offset(, 63) = "=BJ" & c.Row & "-BK" & c.Row
                .Offset(, 64) = TxbArtnr9.Text
                .Offset(, 65) = TxbLev9.Text
                .Offset(, 66) = Txbfaktnr9.Text
                .Offset(, 67) = txbArtikel10.Text
                .Offset(, 68) = txbArtikel10aantal.Text
                .Offset(, 69) = txbStokartikel10.Text
                .Offset(, 70) = "=BQ" & c.Row & "-BR" & c.Row
                .Offset(, 71) = TxbArtnr10.Text
                .Offset(, 72) = TxbLev10.Text
                .Offset(, 73) = Txbfaktnr10.Text
                .Offset(, 74) = txbArtikel11.Text
                .Offset(, 75) = txbArtikel11aantal.Text
                .Offset(, 76) = txbStokartikel11.Text
                .Offset(, 77) = "=BX" & c.Row & "-BY" & c.Row
                .Offset(, 78) = TxbArtnr11.Text
                .Offset(, 79) = TxbLev11.Text
                .Offset(, 80) = Txbfaktnr11.Text
                .Offset(, 81) = txbArtikel12.Text
                .Offset(, 82) = txbArtikel12aantal.Text
                .Offset(, 83) = txbStokartikel12.Text
                .Offset(, 84) = "=CE" & c.Row & "-CF" & c.Row
                .Offset(, 85) = TxbArtnr12.Text
                .Offset(, 86) = TxbLev12.Text
                .Offset(, 87) = Txbfaktnr12.Text
                .Offset(, 88) = txbArtikel13.Text
                .Offset(, 89) = txbArtikel13aantal.Text
                .Offset(, 90) = txbStokartikel13.Text
                .Offset(, 91) = "=CL" & c.Row & "-CM" & c.Row
                .Offset(, 92) = TxbArtnr13.Text
                .Offset(, 93) = TxbLev13.Text
                .Offset(, 94) = Txbfaktnr13.Text
                .Offset(, 95) = txbArtikel14.Text
                .Offset(, 96) = txbArtikel14aantal.Text
                .Offset(, 97) = txbStokartikel14.Text
                .Offset(, 98) = "=CS" & c.Row & "-CT" & c.Row
                .Offset(, 99) = TxbArtnr14.Text
                .Offset(, 100) = TxbLev14.Text
                .Offset(, 101) = Txbfaktnr14.Text
                .Offset(, 102) = txbArtikel15.Text
                .Offset(, 103) = txbArtikel15aantal.Text
                .Offset(, 104) = txbStokartikel15.Text
                .Offset(, 105) = "=CZ" & c.Row & "-DA" & c.Row
                .Offset(, 106) = TxbArtnr15.Text
                .Offset(, 107) = TxbLev15.Text
                .Offset(, 108) = Txbfaktnr15.Text
                .Offset(, 109) = txbKlantnummer.Text
                .Offset(, 110) = txbBTWnummer.Text
                .Offset(, 111) = txbBesteldata.Text
                .Offset(, 111).NumberFormat = "[$-413]dddd dd mmmm yyyy;@"
                .Offset(, 111).ColorIndex = 5
                .Offset(, 112) = TxbAfhaalrek.Text
                .Offset(, 113) = txbTeldata1
                .Offset(, 114) = txbTeldata1 + 7
                .Offset(, 115) = txbVandaag
                .Offset(, 115).NumberFormat = "[$-413]dddd dd mmmm yyyy;@"
            
                
                End With
        End If
    Next
    
End If
End If

MsgBox "Gegevens zijn opgeslagen"

Me.Hide
Unload Me

'tegen flikkeren van beeldscherm
Application.ScreenUpdating = True
End Sub


Private Sub zoeknaam_Change()
Dim MyRange             As Variant
Dim c                   As Range
Dim i                   As Long
Dim stZoekenRechts  As String
Dim stZoekenLinks As String

Set MyRange = Worksheets("bestel_lijst")
Set MyRangeII = Worksheets("bestel_lijst2")
txbVoornaam.Text = ""

'tegen flikkeren van beeldscherm
Application.ScreenUpdating = False

'zoeknaam is naam van combobox waar je de naam van debestellings selecteerd
'hierin selecteer je de naam van debestelling, vb: Klaassen, Jan

If zoeknaam = Empty Then

    MsgBox "Kiesbestelling!"
    Exit Sub
    
Else

    i = InStr(zoeknaam, ", ") 'naambestelling delen op de plaats van de komma
    stZoekenLinks = Trim(Left(zoeknaam, i - 1))   'var. Zoeknaam staat links van de komma
    stZoekenRechts = Right(zoeknaam, Len(zoeknaam) - (i + 1)) 'var. Zoeknaam staat rechts van de komma

    For Each c In MyRange.Range("A3:A300")
        If c = stZoekenLinks And c.Offset(, 1) = stZoekenRechts Then
            txbVoornaam.Text = MyRange.Range("A" & c.Row)
            txbAdres.Text = MyRange.Range("B" & c.Row)
            txbTelefoonnummer.Text = MyRange.Range("C" & c.Row)
            txbGSM.Text = MyRange.Range("D" & c.Row)
            txbArtikel1.Text = MyRange.Range("E" & c.Row)
            txbArtikel1aantal.Text = MyRange.Range("F" & c.Row)
            txbStokartikel1.Text = MyRange.Range("G" & c.Row)
            txbBOartikel1.Text = MyRange.Range("H" & c.Row)
            txbArtnr1.Text = MyRange.Range("I" & c.Row)
            TxbLev1.Text = MyRange.Range("J" & c.Row)
            faktnr1.Text = MyRange.Range("K" & c.Row)
            txbArtikel2.Text = MyRange.Range("L" & c.Row)
            txbArtikel2aantal.Text = MyRange.Range("M" & c.Row)
            txbStokartikel2.Text = MyRange.Range("N" & c.Row)
            txbBOartikel2.Text = MyRange.Range("O" & c.Row)
            TxbArtnr2.Text = MyRange.Range("P" & c.Row)
            TxbLev2.Text = MyRange.Range("Q" & c.Row)
            faktnr2.Text = MyRange.Range("R" & c.Row)
            txbArtikel3.Text = MyRange.Range("S" & c.Row)
            txbArtikel3aantal.Text = MyRange.Range("T" & c.Row)
            txbStokartikel3.Text = MyRange.Range("U" & c.Row)
            txbBOartikel3.Text = MyRange.Range("V" & c.Row)
            Txbartnr3.Text = MyRange.Range("W" & c.Row)
            TxbLev3.Text = MyRange.Range("X" & c.Row)
            faktnr3.Text = MyRange.Range("Y" & c.Row)
            txbArtikel4.Text = MyRange.Range("Z" & c.Row)
            txbArtikel4aantal.Text = MyRange.Range("AA" & c.Row)
            txbStokartikel4.Text = MyRange.Range("AB" & c.Row)
            txbBOartikel4.Text = MyRange.Range("AC" & c.Row)
            TxbArtnr4.Text = MyRange.Range("AD" & c.Row)
            TxbLev4.Text = MyRange.Range("AE" & c.Row)
            faktnr4.Text = MyRange.Range("AF" & c.Row)
            txbArtikel5.Text = MyRange.Range("AG" & c.Row)
            txbArtikel5aantal.Text = MyRange.Range("AH" & c.Row)
            txbStokartikel5.Text = MyRange.Range("AI" & c.Row)
            txbBOartikel5.Text = MyRange.Range("AJ" & c.Row)
            TxbArtnr5.Text = MyRange.Range("AK" & c.Row)
            TxbLev5.Text = MyRange.Range("AL" & c.Row)
            faktnr5.Text = MyRange.Range("AM" & c.Row)
            txbArtikel6.Text = MyRange.Range("AN" & c.Row)
            txbArtikel6aantal.Text = MyRange.Range("AO" & c.Row)
            txbStokartikel6.Text = MyRange.Range("AP" & c.Row)
            txbBOartikel6.Text = MyRange.Range("AQ" & c.Row)
            TxbArtnr6.Text = MyRange.Range("AR" & c.Row)
            TxbLev6.Text = MyRange.Range("AS" & c.Row)
            faktnr6.Text = MyRange.Range("AT" & c.Row)
            txbArtikel7.Text = MyRange.Range("AU" & c.Row)
            txbArtikel7aantal.Text = MyRange.Range("AV" & c.Row)
            txbStokartikel7.Text = MyRange.Range("AW" & c.Row)
            txbBOartikel7.Text = MyRange.Range("AX" & c.Row)
            TxbArtnr7.Text = MyRange.Range("AY" & c.Row)
            TxbLev7.Text = MyRange.Range("AZ" & c.Row)
            faktnr7.Text = MyRange.Range("BA" & c.Row)
            txbArtikel8.Text = MyRange.Range("BB" & c.Row)
            txbArtikel8aantal.Text = MyRange.Range("BC" & c.Row)
            txbStokartikel8.Text = MyRange.Range("BD" & c.Row)
            txbBOartikel8.Text = MyRange.Range("BE" & c.Row)
            TxbArtnr8.Text = MyRange.Range("BF" & c.Row)
            TxbLev8.Text = MyRange.Range("BG" & c.Row)
            faktnr8.Text = MyRange.Range("BH" & c.Row)
            txbArtikel9.Text = MyRange.Range("BI" & c.Row)
            txbArtikel9aantal.Text = MyRange.Range("BJ" & c.Row)
            txbStokartikel9.Text = MyRange.Range("BK" & c.Row)
            txbBOartikel9.Text = MyRange.Range("BL" & c.Row)
            TxbArtnr9.Text = MyRange.Range("BM" & c.Row)
            TxbLev9.Text = MyRange.Range("BN" & c.Row)
            faktnr9.Text = MyRange.Range("BO" & c.Row)
            txbArtikel10.Text = MyRange.Range("BP" & c.Row)
            txbArtikel10aantal.Text = MyRange.Range("BQ" & c.Row)
            txbStokartikel10.Text = MyRange.Range("BR" & c.Row)
            txbBOartikel10.Text = MyRange.Range("BS" & c.Row)
            TxbArtnr10.Text = MyRange.Range("BT" & c.Row)
            TxbLev10.Text = MyRange.Range("BU" & c.Row)
            faktnr10.Text = MyRange.Range("BV" & c.Row)
            txbArtikel11.Text = MyRange.Range("BW" & c.Row)
            txbArtikel11aantal.Text = MyRange.Range("BX" & c.Row)
            txbStokartikel11.Text = MyRange.Range("BY" & c.Row)
            txbBOartikel11.Text = MyRange.Range("BZ" & c.Row)
            TxbArtnr11.Text = MyRange.Range("CA" & c.Row)
            TxbLev11.Text = MyRange.Range("CB" & c.Row)
            faktnr11.Text = MyRange.Range("CC" & c.Row)
            txbArtikel12.Text = MyRange.Range("CD" & c.Row)
            txbArtikel12aantal.Text = MyRange.Range("CE" & c.Row)
            txbStokartikel12.Text = MyRange.Range("CF" & c.Row)
            txbBOartikel12.Text = MyRange.Range("CG" & c.Row)
            TxbArtnr12.Text = MyRange.Range("CH" & c.Row)
            TxbLev12.Text = MyRange.Range("CI" & c.Row)
            faktnr12.Text = MyRange.Range("CJ" & c.Row)
            txbArtikel13.Text = MyRange.Range("CK" & c.Row)
            txbArtikel13aantal.Text = MyRange.Range("CL" & c.Row)
            txbStokartikel13.Text = MyRange.Range("CM" & c.Row)
            txbBOartikel13.Text = MyRange.Range("CN" & c.Row)
            TxbArtnr13.Text = MyRange.Range("CO" & c.Row)
            TxbLev13.Text = MyRange.Range("CP" & c.Row)
            faktnr13.Text = MyRange.Range("CQ" & c.Row)
            txbArtikel14.Text = MyRange.Range("CR" & c.Row)
            txbArtikel14aantal.Text = MyRange.Range("CS" & c.Row)
            txbStokartikel14.Text = MyRange.Range("CT" & c.Row)
            txbBOartikel14.Text = MyRange.Range("CU" & c.Row)
            TxbArtnr14.Text = MyRange.Range("CV" & c.Row)
            TxbLev14.Text = MyRange.Range("CW" & c.Row)
            faktnr14.Text = MyRange.Range("CX" & c.Row)
            txbArtikel15.Text = MyRange.Range("CY" & c.Row)
            txbArtikel15aantal.Text = MyRange.Range("CZ" & c.Row)
            txbStokartikel15.Text = MyRange.Range("DA" & c.Row)
            txbBOartikel15.Text = MyRange.Range("DB" & c.Row)
            TxbArtnr15.Text = MyRange.Range("DC" & c.Row)
            TxbLev15.Text = MyRange.Range("DE" & c.Row)
            txbKlantnummer.Text = MyRange.Range("DF" & c.Row)
            txbBTWnummer.Text = MyRange.Range("DG" & c.Row)
            txbBesteldata.Text = MyRange.Range("DH" & c.Row)
            TxbAfhaalrek.Text = MyRange.Range("DI" & c.Row)
            txbTeldata1.Text = MyRange.Range("DJ" & c.Row)
            txbTeldata2.Text = MyRange.Range("DK" & c.Row)
            txbVandaag.Text = MyRange.Range("A1")
 
Grema

ik ga je de / een oplossing geven, maar aangezien het (zelfs voor mij) veel werk gaat zijn om dat volledig juist in mekaar te zetten laat ik dat aan jou over ;) Ik denk wel dat je er een groot stuk van deze zondag mee zoet zal zijn...

Ik zal het in stappen zeggen:

eerst en vooral moet die ellenlange code eruit voor het opvragen en wegzetten van ingevulde tekstvakken e.d. Dit kan je bv. zo doen: lees de bijdrage van Aaron Blood hier door. Je gebruikt het tag element om info mee te sturen, bv. de kolom of cel waar de info vandaan komt. Wat je dan enkel moet doen is een loop door elk element op je userform.

Wigi
 
Laatst bewerkt:
Vervolgens raad ik je aan om de elementen op mekaar uit te lijnen. Selecteer een rij met elementen (gewoon met de muis van rechtsboven in de rij naar links onder in die zelfde rij. Dan met rechts klikken op een element en je krijgt opties om uit te lijnen.

Echt nodig is dit niet, maar je kan dan wel gebruik maken van de Left property of de Top property. Zelfde Top property wil dan zeggen dat de elementen op dezelfde rij staan.
 
Dan over het uitschakelen van die rij:

Ik zou 1 knop maken met "Rij uitschakelen". Als je klikt vraagt die welke rij je wilt uitschakelen. Met een loop zoals hierboven zet je dan de juist elementen op Enabled = False. Of Visible = False. Maar verwijder ze niet.

De knop die dan alles verwerkt moet kijken of een element Enabled is of Visible. Indien niet, doe niets.

Duidelijk?

Wigi
 
wigi ,

bedankt om weeral de snelle reactie ; zal proberen te ontcijferen wat je allemaal opgaf .

maar kan de link niet vinden :
Code: 
 lees de bijdrage van Aaron Blood hier

kan ik hem nog elders vinden ??


zal zo stap voor stap verder opbouwen

grema
 
Idd, zondag is geen rustdag, maar werkendag!
Klik om te vergroten...

Werk steeds op men PC ; Ook op zondag .

Ben nog geen " krack " in VB maar zoek steeds bij te leren .
Vandaar mijn vragen op het forum.

Zal jullie nog veel moeten " ambeteren" . ( = lastig vallen )

grema
 
Lastig vallen is het zeker niet.
Hiervan leren andere hierop het forum ook. :D

Groet,
Ferenc
 
ferenc , wigi , Ellasar en anderen


dat van die loop is me nog steeds niet duidelijk;:(


kan iemand een eenvoudig voorbeeld geven aub

gr.
 
wigi en allen ,

bedankt om me er even aan te herinneren.

Ben het nog niet vergeten , snap nog niet alles.


K zet de vraag voorlopig op opgelost , daar ik nu een even geen tijd heb om alles verder te bestuderen . Veel te veel werk .

Apprecieer al de hulp die ik tot nu toe van iedereen kreeg. Jullie verdienen een " pluim".

Grema
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan