22. januar 2002 - 17:02Der er
7 kommentarer og 1 løsning
indtast et sted og udfyld felter på andet sheet.
Jeg har et excel regneark med forskellige worksheets. Det forreste er et regnskab med felter for hver person der indgår i regnskabet. Når en person indbetaler penge på sin konto bliver det skrevet i et felt ud for personen. Ligeledes bliver det skrevet på et andet sheet sammen med dato, navn og en variabel information. Altså 4 forskellige felter udfyldes på dette sheet. Jeg vil så gerne gøre det sådan, at når man skriver et beløb i det første worksheet tager den navn og dato og beløb fra worksheetet og smider ind i det andet worksheet så man kun skal komme med den 4. information. Men problemet er vel, at man starter med at skrive i række 1, og dernæst i række 2 osv. Så man skal vel på en eller anden måde fortælle excel, at den skal skrive i den første række ledig. Hvordan gøres dette. Jeg håber i kan forstå mit spørgsmål, det er lidt svært at formulere. Jeg forestiller mig en makro noget i denne retning. indtast beløb i sheet1!d4 sheet2!a? = sheet1!a4 sheet2!b? = dato sheet2!d? = sheet1!d4
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Problemet i denne sammenhæng er jo, at ligså snart du indtaster nye informationer på dit Sheet1, så vil værdier i sheet2 ændre sig. Men følgende Makro burde kunne gøre det :
Du højreklikker på fanebladet "Regnskab" og vælger "Vis programkode". Her kopier du følgende kode ind:
Private Sub Worksheet_Change(ByVal Target As Range) Dim rPayed As Range Set rPayed = Range("L3:L18")
If Not Intersect(Target, rPayed) Is Nothing Then If Not Target.Value = "" Then Dim wksPay As Worksheet Dim lNumRow As Long Set wksPay = ActiveWorkbook.Worksheets("Indbetalt") lNumRow = wksPay.Range("A2").CurrentRegion.Rows.Count + 1 wksPay.Range("A" & CStr(lNumRow)).Value = Range("A" & CStr(Target.Row)).Value wksPay.Range("C" & CStr(lNumRow)).Value = Now wksPay.Range("D" & CStr(lNumRow)).Value = Target.Value wksPay.Range("B" & CStr(lNumRow)).Value = InputBox("Indtast navn på indbetaler", "Systeminformation") Set wksPay = Nothing End If End If
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.
