Gegeven 2 kolommen naar rechts plaatsen.

[danny147]

Beste,

Ik wil een gegeven wegschrijven naar tabblad "metingen".

Het gegeven staat in TextBox1 en moet ComboBox1 zoeken uit lijst op tabblad "metingen" en het gegeven moet 2 kolommen naar rechts geplaatst worden.

Ik gebruik de volgende code, maar ze werkt niet.

Private Sub CommandButton2_Click()

    With Sheets("metingen").Column(2).Find(ComboBox1, , xlValues, xlWhole)
         .Offset(0, 2) = TextBox1
    End With

    MsgBox ("Gegevens zijn weggeschreven")

End Sub

Groetjes Danny. :thumb:

 

[HSV]

Doe er eens een voorbeeldbestandje bij Danny.
Ik denk dat je wat dingen door elkaar haalt.

Edit:
Maar ik kan ook een gokje doen natuurlijk.

Private Sub CommandButton2_Click()
 Dim rij As Integer
  With Sheets("metingen")
    rij = .Columns(2).Find(ComboBox1.Value, , xlValues, xlWhole)
      .Cells(rij, 4) = TextBox1
    End With
  MsgBox ("Gegevens zijn weggeschreven")
End Sub

 

[Warme bakkertje]

Probeer deze eens

Private Sub CommandButton2_Click()

    With Sheets("metingen").Column[COLOR="red"]s[/COLOR](2).Find(ComboBox1, , xlValues, xlWhole) 
         .Offset(0, 2) = TextBox1
    End With

    MsgBox ("Gegevens zijn weggeschreven")

End Sub

 

[danny147]

Beste HSV en warme bakkertje

Heb column vervangen door columns en het gaat ook niet.

Heb het bestandje proberen na te bootsen.

Groetjes Danny. :thumb:

PS: Heb mijn Tabblad "gegeven" genoemd ipv metingen, maar eveneens lukt het niet.

 

[HSV]

Enkel 'metingen' veranderen in 'gegeven', en de "S" van Rudi erbij, en het werkt perfect.

 

[danny147]

Beste HSV

Had het ook nu juist gezien

In mijn oigineel bestandje staat er een spatie te veel in en dat was de reden, ook de S na column natuurlijk.

Bedankt :thumb:

Groetjes Danny. :thumb:

 

[danny147]

Beste HSV en warme bakkertje

Er moest nog .Value achter TextBox1, want hij schreef de waarde weg als tekst.

Groetjes Danny. :thumb:

 

[HSV]

Ach, ik dacht dat de meeste namen 'tekst' waren.

Succes ermee Danny. :thumb:

 

[Warme bakkertje]

Mijn glazen bol is tijdelijk buiten gebruik

 

[danny147]

Beste HSV en warme bakkertje,

Jullie hebben volkomen gelijk

Mijn namaakbestandje was niet perfect.

In mijn origineel bestandje (Hijskabels) zijn het cijfers die hij moest wegschrijven, vandaar.

Groetjes Danny. :thumb:

 

[danny147]

Beste HSV of warme bakkertje,

Het volgende wil ik zien in percenten.

Heb geprobeerd met .Style = "percent" erachter te plaatsen, maar dit wil niet lukken.

TextBox21.Value = .Cells(cl.Row, "S") .[COLOR="red"][B]Style = "percent"[/B][/COLOR]

Zonder .Style = "percent" geeft hij 1,7 ipv 170 %

Groetjes danny. :thumb:

 

[HSV]

Misschien zijn er andere manieren, maar zo zou het moeten kunnen.

TextBox21.Value = .Cells(cl.Row, "S") *100 & "%"

 

[danny147]

Beste HSV

Had ik ook in gedachten, maar met een macro te schrijven zag ik het volgende staan:

Selection.Style = "Percent"

Misschien kon dit er wel achter, maar neen dus.

Nu zou ik nog willen dat hij niet afrond na de komma, maar een integer getal geeft.

Format(# 0) ??

Groetjes Danny. :thumb:

 

[HSV]

Zoiets Danny?

TextBox21 = Format(.Cells(cl.row, "s"), "0%")

 

[danny147]

Beste HSV,

Bedankt, het is opgelost.

Welterusten

Groetjes Danny. :thumb:

 

[HSV]

Mooi :thumb:; ga ook naar bed; ook welterusten Danny.