Macro werkt...net niet naar behoren..

[safe]

Dag iedereen,

Vandaag weer tegen een probleem gelopen dat mij de hele dag zoet heeft gehouden..
Alsnog schakel ik graag jullie hulp weer in want ik zie het licht blijkbaar nog niet.

Onderstaand is een macro dat ik gebruik in Userform als formulier om een klant op te zoeken in het tabblad "Debiteuren" waarbij ik vervolgens kleine gegevens kan wijzigen en betalingen kan toevoegen. Deze macro heb ik op het internet gevonden en iets bijgewerkt zodat het naar mijn wensen is afgestemd.

De knop om de userform te activeren/naar voren te halen staat op sheet1 genaamd "Menu".
Als ik deze knop vanaf dit werkblad gebruik vind hij geen overeenkomsten. Zodra ik deze knop op het werkblad "Debiteuren" plaats, dan vind hij het wel. ( In het blad "Debiteuren" heb ik een bereik aangemaakt onder de naam "Tabel". deze is vanaf cel A t/m cel N)

In deze macro zal vast iets verkeerd staan wat er voor zorgt dat ik deze functie niet vanaf het blad "Menu" kan starten, maar ik weet niet wat het is.

Kan iemand mij daar aanwijzing in geven, met daarbij uitleg van de (gewijzigde) functies ?

Alvast bedankt !!

M.vr.gr. Safe.




Public n, a, c As Variant




Private Sub CommandButton_wijzigen_Click()
Cells(n, "C").Value = TextBox_titel.Value
Cells(n, "A").Value = TextBox_naam.Value
Cells(n, "B").Value = TextBox_conper.Value
Cells(n, "K").Value = TextBox_tel.Value
End Sub

Private Sub CommandButton_zoek_Click()
On Error Resume Next
Set c = [=Tabel].Find(TextBox_gdgrp.Value, lookat:=xlWhole)
If c Is Nothing Then Exit Sub
n = c.Row
TextBox_titel.Value = Cells(n, "C").Value
TextBox_naam.Value = Cells(n, "A").Value
TextBox_conper.Value = Cells(n, "B").Value
TextBox_tel.Value = Cells(n, "K").Value
On Error GoTo 0
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub




Private Sub TextBox_gdgrp_Change()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox_naam_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[pasan]

met With definieer je de juiste sheet.
sluit af met end With

Private Sub CommandButton_wijzigen_Click()
With Worksheets("Debiteuren")
Cells(n, "C").Value = TextBox_titel.Value
Cells(n, "A").Value = TextBox_naam.Value
Cells(n, "B").Value = TextBox_conper.Value
Cells(n, "K").Value = TextBox_tel.Value
end with
End Sub

 

[safe]

Beste Pasan,

Bedankt voor je antwoord. Helaas krijg ik hiermee mijn probleem niet opgelost.
Persoonlijk denk ik dat het probleem eerder zit onder " Private Sub CommandButton_zoek_Click() "

Ik wil graag dat dit formulier de commando krijgt om te zoeken in het hele tabblad "Debiteuren".
In dit tabblad heb ik een bereik aangemaakt genaamd "Tabel".
Dit wil ik dus letterlijk hierin verwerken, aangezien de knop voor deze formulier op het "Menu" werkblad komt te staan.

Probleem is ; Als ik deze knop op het werkblad "Menu" plaats, dan kan ik wel het formulier activeren maar hij vind niks als ik hem een zoekopdracht geef.

Als ik deze knop van het werkblad "menu" haal en deze op het werkblad "Debiteuren" plaats dan vindt hij wel resultaten bij het uitvoeren van de zoekopdracht.

Enig idee waarin het kan zitten ??

Wederom bedankt !!
M.vr.gr.
Safe

 

[pasan]

Het ging mij om het "with" verhaal als je dit ook gebruikt bij het andere stukje

Private Sub CommandButton_zoek_Click()
With Worksheets("Debiteuren")
On Error Resume Next
Set c = [=Tabel].Find(TextBox_gdgrp.Value, lookat:=xlWhole)
If c Is Nothing Then Exit Sub
n = c.Row
TextBox_titel.Value = Cells(n, "C").Value
TextBox_naam.Value = Cells(n, "A").Value
TextBox_conper.Value = Cells(n, "B").Value
TextBox_tel.Value = Cells(n, "K").Value
end With
On Error GoTo 0
End Sub

 

[safe]

Het is gelukt !!
Dankjewel Pasan !!