14. april 2011 - 14:30Der er
2 kommentarer og 1 løsning
indsætte data i rigtige kolonne vha info i celle
hej alle
Jeg har en userform der giver mulighed for at søge på indholdet i en celle. (det sker vha en scanner, og er et ordrenummer) Formlen for at finde cellen virker fint. Det jeg har brug for hjælp til er: Der er 4 muligheder for at sætte et flueben (afmelde en operation), jeg vil nu at via en "gem" knap bliver en tekst el.l. sat ind i en bestemt celle ift den celle der er gemt. Altså den celle der er fundet er altid i kolonne A, alt efter hvilket flueben der er afkrydset, skal teksten ind i enten kolonne B C D eller E, selvfølgelig på den linie hvor ordrenummeret står.
- "Gem" knappen er den på userformen med de muligheder for flueben ? - Teksten som skal indsættes, hvorfra hentes den ? - Hvordan ser koden ud, som henter den celle der skal gemmes ?
Jeg fandt hjælp fra tidligere, hvor jeg havde et problem der lignede. Jeg finder lige formlen frem, men den ligger på en anden PC. Så lukker jeg spørgsmålet derefter MVh Ups
Worksheets("PL").Activate Data = Range("A1:A" & Range("A65536").End(xlUp).Row) For i = 4 To UBound(Data) If Data(i, 1) = lstsøgordre.Text Then Cells(i, 1).Select ' Cells(i, 4) = Now Exit For End If Next ActiveCell.Value = lstsøgordre.Text If chbskæring.Value = True And ActiveCell.Offset(0, 2) = "" Then ActiveCell.Offset(0, 2) = Now
End If
If chbbuk.Value = True Then ActiveCell.Offset(0, 3) = Now End If If chbdrej.Value = True Then ActiveCell.Offset(0, 4) = Now End If If chbsmed.Value = True Then ActiveCell.Offset(0, 5) = Now End If
Unload Me
End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
