16. februar 2015 - 05:06Der er
3 kommentarer og 1 løsning
Problemmer ned automatisk afvikling VBA Excel
Jeg har lavet et program der skal finde de rigtige svar ud fra oplysningerne i 6 Text.box i en Userform. Hvis jeg afvikler det manuel vil det gerne køre. Hvis jeg tager et kopi af original arket for at lave det på det vil det ikke afvikles korrekt. Det skal afvikles ved at gå linjen på regnearket igennem og sammenlign med de 6 text.box
Håber der er en der kan hjælpe mig. Programmet er hovedsageligt bygget op af GoTo og If sætninger.
Jeg vedlægger min kode så det er lettere at finde fejlen er hvad der kan gøres for at stabilisere programmet. Det er faktisk tastet så simpelt som muligt. Men jeg skriver det gerne hvis bare det virker bagefter. Kode Start: Selection.CurrentRegion.Select iAntalRækker = Selection.Rows.Count Range("A2").Select SaetFlag: If TextBox1.Text = "Ukendt" Then GoTo Maerket End If
If Selection.Offset(iAntalRækker, 0).Value = TextBox1.Text Then Selection.Offset(iAntalRækker, 6).Value = 1 GoTo Maerket Else GoTo Hertil End If
Maerket: If TextBox3.Text = "" Then GoTo System End If
If Selection.Offset(iAntalRækker, 2).Value = TextBox3.Text Then If Selection.Offset(iAntalRækker, 6).Value = 1 Then GoTo System End If End If
If Selection.Offset(iAntalRækker, 6).Value = 1 Then If Selection.Offset(iAntalRækker, 2).Value = "" Then GoTo System End If End If
If Selection.Offset(iAntalRækker, 6).Value = 1 Then Selection.Offset(iAntalRækker, 6).Value = "" GoTo Hertil Else GoTo Hertil End If
System:
***************** De andre som Maerket*********************** Den sidste har dog alle hevisninger til hertil. Text.Box 2 er et datofelt jeg har valgt at springe dette over.
Hertil: iAntalRækker = iAntalRækker + 1 If Selection.Offset(iAntalRækker, 0) = "" Then GoTo Regneark Else GoTo SaetFlag End If
Regneark:
End Sub
Jeg håber virkelig der er en der vil hjælpe mig. Jeg er bange for at det er min dobbelt If, der gør programmet usikkert. Det kan sandsynligvis laves meget bedre det rækker mine nuværende evner bare ikke til.
Jeg har løst problemet. Jeg satte den til at slette 2 gange. Det løste problemet. Hvorfor den skal bruge 2 gange er mig en gåde. Men det hjalp. Det er 2 gang jeg selv løser problemet.
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.