Ik ben een soort calculator aan het maken waarbij ik afhankelijk van de geselecteerde cel in een aantal andere cellen de waarde uit txt velden wil laten invullen.
E.e.a. functioneert al aardig maar ik wil de waarde uit het geopende formulier toevoegen aan cellen in de rij waarin ik nu sta.
Actieve rij is myrow
Probleem is dat ik het niet voor elkaar krijg om de waarde uit het txt veld toetevoegen aan Kolom G van myrow.
E.e.a. functioneert al aardig maar ik wil de waarde uit het geopende formulier toevoegen aan cellen in de rij waarin ik nu sta.
Actieve rij is myrow
Probleem is dat ik het niet voor elkaar krijg om de waarde uit het txt veld toetevoegen aan Kolom G van myrow.
Code:
Dim doel As String
Dim btwBedr As Double
myrow = ActiveCell.Row 'Huidige rij
mycol = ActiveCell.Column 'Huidge Kolom
'check of we met inkoop of verkoop te maken hebbben.
'Dit wordt gedaan door de check of huidige kolom < 68 (verkoop) OF > 68 is
Select Case mycol
Case Is < 8, 67, 68, 69
MsgBox "Ongeldige cel", vbCritical, " BTW berekenaar"
Case Is > 68
MsgBox "Dit is Inkoop" 'Even om te testen
Case Is < 67
btwBedr = TxtBTWNormBer
doel = "7," & myrow
Range(doel).Value = btwBedr
MsgBox "Dit is Verkoop" & "Getest BTW bedrag = " & btwBedr
End Select