opmerking met zoeken invoegen

[driverautoband]

Hallo allemaal
ik zit met een vraaag
ik heb een rooster gemaakt (nog steeds)
ik heb daar een zoekformulier gemaakt werkt uitstekend overgens maar nu wil ik een functie er bij toevoegen nl ik heb soms een opmerking erbij geplaatst en nu wil ik met die zoek formulier als ik de datum intik ook de desbetreffende opmerking erbij krijgt .
zou dit mogelijk zijn dan gaat het om deze regel gegopmerking.Text = .Range("E" & code.Row).Text

bvd rene

Private Sub haalgegevensop_Click()
Dim code As Range

With Worksheets("HC")
Set code = .Range("C7:C500").Find(gegdatum, LookIn:=xlValues, lookat:=xlWhole)
If Not code Is Nothing Then
gegdag.Text = .Range("A" & code.Row)
gegmachinist.Text = .Range("I" & code.Row)
gegconducteur.Text = .Range("J" & code.Row)
gegannika.Text = .Range("K" & code.Row)
gegboek.Text = .Range("L" & code.Row)
gegsongnummer.Text = .Range("C" & code.Row)
gegmachinistvan.Text = .Range("W" & code.Row).Text
gegmachinisttot.Text = .Range("X" & code.Row).Text
gegconducteurvan.Text = .Range("F" & code.Row).Text
gegconducteurtot.Text = .Range("G" & code.Row).Text
gegopmerking.Text = .Range("E" & code.Row).Text
End If
End With

End Sub

End Sub

 

[Wigi]

Werkt dit?

On Error Resume Next
If Len(.Range("E" & code.Row).Comment.Text) > 0 Then gegopmerking.Text = .Range("E" & code.Row).Comment.Text
On Error Goto 0

Uit de losse pols, niet getest m.a.w.

Wigi

 

[Wigi]

René, kan je eens de code tags rond je code zetten aub? Maakt het leesbaar.

 

[driverautoband]

wigi
hartelijk bedankt dit werkt al
alleen heb ik nog een vraagje
ik heb korte zinnetjes in de opmerkingen staan met bv 3 regels
nu zet de macro de gegevens erin alleen achterelkaar met een ¶ ertussen ik heb de vak waar het inmoet wel hooggenoeg gemaakt .Weet je hier ook een oplossing voor ik heb het geprobeert met eigenschappen van die vak proberen op te lossen maar helaas zonder resultaat

vriendelijke groet rene

 

[Wigi]

wigi
hartelijk bedankt dit werkt al
alleen heb ik nog een vraagje
ik heb korte zinnetjes in de opmerkingen staan met bv 3 regels
nu zet de macro de gegevens erin alleen achterelkaar met een ¶ ertussen ik heb de vak waar het inmoet wel hooggenoeg gemaakt .Weet je hier ook een oplossing voor ik heb het geprobeert met eigenschappen van die vak proberen op te lossen maar helaas zonder resultaat

vriendelijke groet rene

Zet de Multiline eigenschap van dat vak op True.

Wigi

 

[Wigi]

Op mijn site, bij Excel, VBA-code, Opmerkingen-code vind je een heel bestand vol met code om te gebruiken bij opmerkingen.

Bv. 2 cellen met een opmerking aanduiden en dan verwisselt de code de opmerkingen van cel. Of de inhoud van de opmerkingen uit een bepaald bereik ineens wegschrijven naar cellen in een aparte kolom.

Bestudeer maar eens.

Wigi

 

[driverautoband]

hartelijk bedankt Wigi
nu heb ik weer wat geleerd het werkt

 

[driverautoband]

sorrie Wigi

ik heb er toch nog een vraag over
als ik een datum heb gekozen
met een daarbij behorende opmerking
dat werk perfekt alleen als ik een andere datum kiest waarbv geen opmerking instaat dan blijft de oude gegevens staan bij de vak opmerkingen
Kies ik weer een datum met wel een opmerking dan pakt die deze weer feilloos over

vriendelijke groet rene

 

[Wigi]

On Error Resume Next
If Len(.Range("E" & code.Row).Comment.Text) > 0 Then
     gegopmerking.Text = ""
Else
     gegopmerking.Text = .Range("E" & code.Row).Comment.Text
End If
On Error Goto 0

Wigi

 

[driverautoband]

sorrie Wigi

maar nu blijft het vak leeg als ik deze kode hebt ingevoert

 

[Wigi]

sorrie Wigi

maar nu blijft het vak leeg als ik deze kode hebt ingevoert

Als er geen opmerking in de cel staat, is er toch niets weer te geven?

 

[driverautoband]

dat klopt maar er staat wel een opmerking in

 

[Wigi]

dat klopt maar er staat wel een opmerking in

Een opmerking zonder tekst in misschien?

 

[driverautoband]

er staat hier wel tekst in ik hb het met verschillende data's geprobeert

 

[Wigi]

Strange... doe maar een voorbeeldbestandje.

 

[driverautoband]

dat wil ik wel maar daar hangt heel mijn agenda aanvast is wel een groot bestand
kan ik je dat niet ff mailen
groetjes rene

 

[driverautoband]

Wigi
het is gelukt met dat bestandje maken


Ik krijg het niet voormekaar om die opmerkingen erintekrijgen zo

vriendelijke groet rene

 

[Wigi]

Ik heb geen Excel 2007 René. Kan het niet in een eerdere versie?

 

[driverautoband]

sorrie wiggi ik heb een andere versie erop gezet deze zal beter gaan

vriendelijke groet rene

 

[Wigi]

René, hoe moet ik de datum ingeven zodat de gegevens in de userform komen. Bv. 12/feb.

Dus welke notatie?