Jeg har et problem med en celle reference der skal starte forfra baseret på input i en celle (Excel 2003)
eks: jeg har et doc. ID som en streng (System_001) i kolonne A.
I kolonne B har jeg lavet en funktion:
=IF(A1="";"";""&A1&"__"&'Numbers'!A1)
Den henter hvad der skrives i cellen i kolonne A og kombinerer det med en dobbelt underscore og et fortløbende nummer fra et eksternt ark. Til:
System_001__001 System_001__002 etc.
Det jeg har et problem med er, at når jeg skifter Doc. ID strengen til System_002 så er outputtet nu:
System_002__003
Det jeg skal have tilføjet til min funktion er altså at den, når Doc. ID bliver et nummer højere fra System_001 til System_002 i kolonne A, så starter den forfra på nummereringen fra det eksterne 'Numbers'ark som vist herunder i B kolonnen:
Indsættes i primære ark: (HøjreKlik på Ark / Vis Programkode)
Dim systemNr As String Const startNr As String = "001" Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Val(Mid(ActiveSheet.Range("B1").Text, 8, 3)) = Val(systemNr) + 1 Then ActiveWorkbook.Sheets("tal").Range("A1") = "'001" End If End If
End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then systemNr = Mid(ActiveSheet.Range("B1").Text, 8, 3) End If End Sub
Hvad er det lige du har gang i?????? Dobbeltspørgsmål er ikke tilladt ifølge Ekspertens regler. Du skal derfor selv lukke dine spørgsmål igen, så kun ét spørgsmål om emnet er åben.
Ja det må du nok sige...jeg er helt ny på sitet og da jeg skulle oprette dette spørgsmål syntes jeg ikke at jeg fik en bekræftigelse på at det var oprettet..så ja..meget talentfuldt har jeg fået oprettet flere versioner...hvilket jeg selvfølgelig beklager..vil ikke spilde jeres tid eller ovetræde nogen regler..jeg har jo brug for jeres hjælp, ikke...jeg fik vist kun afmeldt min egen overvågning af spørgsmålene og ikke lukket dem...hvilket jeg vil gøre snarest. beklager igen.
Mvh Jim
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.
