Avatar billede hcichosz Praktikant
31. august 2008 - 22:16 Der er 2 kommentarer og
1 løsning

formular i vba tjek om data er skrevet

Hej
Jeg har fået en brugerformular op at stå via dette spm. http://www.eksperten.dk/spm/843656
jeg har en kolone der heder Start Nr. der skrives et start nr. ;-)
men den kan skrive det samme nr selv om det findes i forvejen
kan man gøre sådan at den kun kan skrive det en gang.

Mvh/Henrik C
Avatar billede excelent Ekspert
31. august 2008 - 23:03 #1
Linie 5 er ny - udskift hele koden med denne

Private Sub opret_Click()
If Me.startnr = "" Then MsgBox ("Start nr. skal udfyldes"): Exit Sub
Set sh = Sheets("Ark1")
nyRk = sh.Cells(5000, 1).End(xlUp).Row + 1
If Application.CountIf(sh.Range("A1:A5000"), Me.startnr) > 0 Then MsgBox ("Nr findes allerede"): Exit Sub
sh.Range("A" & nyRk) = CDec(Me.startnr)
sh.Range("B" & nyRk) = Me.navn
sh.Range("C" & nyRk) = Me.by
sh.Range("D" & nyRk) = CDec(Me.alder)
sh.Range("E" & nyRk) = Format(Me.tid, "hh:mm:ss")
Me.startnr.SetFocus
End Sub
Avatar billede hcichosz Praktikant
01. september 2008 - 07:19 #2
Hej
Smid et svar der er perfekt.
Avatar billede excelent Ekspert
01. september 2008 - 09:26 #3
ok
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester