waarde naar excel cel verplaatsen

[raoulduivestein]

Ik heb de volgende code, maar wil vooraf bepalen in welk tabblad de waarde geplaatst moet worden

Wie kan mij helplen

Raoul

[CPP]
Private Sub CommandButton1_Click()
[b1] = keuze.Value
End Sub
[/CPP]

 

[Elsendoorn2134]

Raoul,

Probeer eens

Worksheets("NaamTabblad").Range("B1") = keuze.value

Veel Succes.

 

[raoulduivestein]

Dankejwel elsendoor2134!
Dit werkt, echter is de waarde in keuze.value een bepaald bedrag hoe kan ik er voor zorgen dat het als valuta worden geplaats in excel?

 

[spaarie]

Sheets("naam").Cells(1, 2) = Format(keuze, "€ #,##0.00")

of zoals het antwoord van Elsendoorn

Worksheets("NaamTabblad").Range("B1") = Format(keuze, "€ #,##0.00")

 

[raoulduivestein]

Dankjewel spaarie!

Ik heb nog een laatste vraag, in de desbetreffende sheet komen meerdere rijen met data, is het mogelijk om steeds een rij op te schuiven. Dus als rij 1 gevuld is opschuiven naar rij2, dan rij3 enz.
En hoe laat ik de desbetreffende sheet direct 'naar boven komen' na het uitvoeren van de code.

 

[spaarie]

Wil je steeds de volgende lege rij? Dan is dit een optie:

Sheets("naam").Range("A" & Rows.Count).End(xlUp).Row + 1 = Format(keuze, "€ #,##0.00")

De beste manier om een Sheet te activeren is:

Application.Goto Sheets("naam").Cells(1)

Maar misschien kan je beter tonen wat je hebt, want de code's die ik je geef is allemaal ruw en niet ergens op gebaseerd natuurlijk...

 

[raoulduivestein]

Dankjewel

Ik heb verschillende labels en textboxen deze wil ik dmv een button plaatsen in een lege rij in de excel sheet.
Als ik het probeer met de code van jou krijg ik een foutmelding.

Fout438:

Deze eigenschap of methode wordt niet ondersteund door dit object..

 

[spaarie]

Dan zou ik het zo ongeveer doen...

Private Sub CommandButton1_Click()
    With Sheets("naam")
        rij = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Cells(rij, 1) = TextBox1
        .Cells(rij, 2) = TextBox2
        .Cells(rij, 3) = TextBox3
        .Cells(rij, 4) = TextBox4
    End With
End Sub

Dat zei ik ook. De code's zijn ruw en niet aangepast op jouw wensen.
Dus zal je of een voorbeeld of je code moeten plaatsen...

 

[raoulduivestein]

Dankjewel dit werkt perfect!