Den här webbläsaren stöds inte längre.
Uppgradera till Microsoft Edge och dra nytta av de senaste funktionerna och säkerhetsuppdateringarna, samt teknisk support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Hej P3excel!
Jag sitter med likartade funderingar som vi haft tidiagre, men i ett annat projekt med ett excelldatablad jag byggt upp för att samla och koppla innovationsideer från min arbetgrupp.
Min första fundeirng är hur jag enklast skriver kod för att styra inmatad textbeskrivning från "txtÄ1" i formulär (UserForm1) där jag har fyra kategorival som väljs via checkboxar (ChbFörvärv(D), ChbAdmin(E), ChbBuissness(F), ChbModell(G)).
Beroende på vilken av dessa checkboxar som är vald, ska texten i txtÄ1 hamna på Blad1 och antingen i kolumn D, E, F eller G beroende på Chb-valet.
Beorende på om det är ett HELT NYTT "case", dvs nytt innovationsnummer, så ska allt styras ner mot första lediga rad.
Alternativet är att man väljer ett BEFINTLIGT Ino-NR och då ska tetxten styras ner till den raden och dom kolumnerna.
Jag stannar där med mina frågor och hoppas än en gång på ditt ovärderliga stöd i detta.
//MagnusG_68
En familj av Microsoft-kalkylbladsprogram med verktyg för att analysera, kartlägga och kommunicera data.
Låst fråga. Den här frågan har migrerats från Microsoft Support Community. Du kan rösta på om det är till hjälp, men du kan inte lägga till kommentarer eller svar eller följa frågan.
Hej igen. . .
Vid föregående svarsmail, så hade jag missat att sätta "Ino-NR01" i cell A06, så att "TxtInoNr" hade något att leta efter. . . när jag gjorde så, kördes koden en bra bit ytterligare, men fastnade då vid nedanstående. . . Varför??!!
Hälsning MagnusG_68
Hej,
Det som händer när jag kör koden är:
. . . blir inte "klok" på vad det kan vara som är "okänt" för Subrutinen. . .
Jag har endast ETT blad i excellboken. Blad2(Blad1) som du ser i projekthierarkin. Ska vi ändra "Set ws = Worksheets(1)" ? Som jag uppfattat dig så är det som står inom parantes som är det "verkliga bladnumret". . .
/Hälsning MagnusG_68
Ok, då får vi börja debugga det hela.
En sak först så vi inte gör några antaganden. Bladet som du jobbar mot, där allt landar, det är väl det första (enda) bladet du har? Det är vad set ws = pekar på. Om det inte är det första bladet, ja då måste det ju ändras.
Nu till detektivarbetet.
Kör koden som du gjort, och när felmarkeringen visas ska vi kolla lite värden och se vad koden jobbar med.
I vbe, öppna Direktfönstret via Ctrl+G.
I detta fönster skriver du:
? TxtInoNr.Text
och trycker Enter.
Svaret blir vad som finns i din InoNr-textruta, dvs det som koden söker i inom A6:A1000.
Kopiera detta svar och gå till kolumn A och gör en vanlig sökning efter detta i den kolumnen och se om du får träff.
Vi stannar här och ser vad du får.
Hej,
Alla justeringar och korrigeringar enligt din instruktion ovan har verkställts, dock fastnar körningen på samma ställe hela tiden. . . (!) Vad är det Subrutinen "inte kännerigen", undrar jag. . .
OBS!! Jag har skrivit om raderna manuellt ovanför det som var inkopierat och därefter "delitat" dom inkopierade raderna.
Hälsning; MagnusG_68
Två saker i koden:
Det är lite av en vag text, lite som Error 1004, men där 1004 är klart simplare att lösa. Om du kommer koda i framtiden kommer 1004 bli ett bekant ansikte ;-)
De två rader jag pekar på i bilden nedan vid de gröna blobbarna (punkt 1) gör samma sak. Den nya kod jag gav senast räcker för radsökningen efter gällande InoNr så kodraden med Set c ska inte vara kvar, men den genererar inga fel så det är inte problemet.
Det gav mig dock en hint om att raden du får gulmarkerat ska fungera. Om du inte får fel på raden med Set c så ska det inte bli fel på denna rad heller. Det finns en liten skillnad också från tidigare - ws har ramlat bort före ordet Range, det ska stå ws.Range. Men detta genererar inga fel, men du borde lägga till det. Min gissning på vad som går fel är om du kopierat texten från forumet och klistrat rakt in i vbe. Jag fick problem när jag skulle svara senast, och jag märkte att texten som jag klistrat in från min vbe inte betedde sig korrekt med radbrytningar och liknande. Jag kunde inte klicka "Skicka", och fick börja om, men nåt (osynligt) skräp kan ligga och skvalpa som du får med från texten i detta forum. Rekommendationen är att skriva in koden för hand. Ta bort allt fr o m raden Set c till End If som ses i bilden, och skriv in texten igen manuellt. Du får kolla inlägget tidigare för raden rad=ws.Range så du får med hela texten.
Exakt den text som jag skickade senast fungerar på min dator, det enda som skiljer är vad som eventuellt kan stå i din textbox för InoNr, så där ligger allt i dina händer att det är ett giltigt värde (men även om det skulle stå "gurka" i din textbox skulle du inte få det meddelande du fick).
Att du inte fått någon notis om missad variabeldeklaration betyder att du inte satt detta som "ett måste" i inställningarna.
Ett tips, gör så. Det gör du i denna meny:
I vb-editorn går du till menyn Verktyg, sen Alternativ, och i fliken Redigerare finns en checkruta som heter "Variabler måste deklareras", markera den. Om du gjort rätt kommer du överst i alla kodfönster numera se texten "Option Explicit".
Slutligen. Du har rätt angående TxtIno1.Text, jag har helt enkelt inte hängt med i dina ändringar av vad ärendetextboxen heter. Trodde detta var kopplat till InoNr på något sätt, vilket det uppenbarligen inte var.