25. maj 2005 - 13:34Der er
13 kommentarer og 1 løsning
Excel, mellem 2 ark, svær
Hej eksperter.
Jeg skal lave et regneark hvor det ene regneark er underliggende til det andet. nok bedst hvis jeg forklarer problemet her. http://mscp.dk/regnskab.xls. når man i ark 2 i felterne konto angiver en konto skal det på ark 1 lægges til i konto Id'et. noget der ved hvordan dette gøres?
Jeg har kigget lidt på dit regneark, og har nogle spørgsmål. I dit eksempel har du kun en linie til hver konto. Vil det altid være tilfælde . Hvis der kan være flere linier til hver konto, vil der i så fald være behov for at definere hvilken tekst som skal vises på side 1 for den aktuelle konto.
Hvis der kun er en linie for hver konto, kan du måske løse dit problem med lookup eller slå.op. Alternativet er at lave en makro, der opdaterer dit Ark1.
Du har måske allerede fået en løsning, men når jeg nu har kigget lidt på en makro,sender jeg den aligevel.
Nedenstående makro skalv have to navngivne områder source og target. I min test er source defineret til =Ark2!$A$5:$H$28 Target er defineret til =Ark1!$A$4:$J$27.
Konden er: Sub FlytData() Dim rngTarget As Range Dim rngSource As Range Dim wb As Workbook Dim wsSource As Worksheet Dim wsTarget As Worksheet
Set wb = Application.ActiveWorkbook Set wsSource = wb.Worksheets("Ark2") Set wsTarget = wb.Worksheets("Ark1")
Set rngSource = wsSource.Range("source") Set rngTarget = wsTarget.Range("target")
For i = 1 To rngSource.Rows.Count If rngSource(i, 5).Value <> 0 Then x = rngSource(i, 5).Value rngTarget(x, 2).Value = rngSource(i, 1).Value rngTarget(x, 7).Value = rngSource(i, 7).Value 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.