Notifikationer

Markér alle som læst Log ud

jnh Nybegynder

11. december 2008 - 12:09 Der er 4 kommentarer og
1 løsning

Funktion for hvert worksheet i excel

Hej.

Jeg er en dør til VB, men kunne godt bruge en funktion på mit "Forsiden" sheet.
Jeg har en række ens worksheets i et Excel-ark og for hver af disse, vil jeg gerne have værdien i celle B4, B6 og B9 fra hvert af disse ark til at stå på et forside-ark.

Jeg forestiller mig noget i retning af (pseudo):

Dim wsSheet As Worksheet
Dim currentRow As Range

currentRow = 10 'Start at row 10

For Each wsSheet In Worksheets

If wsSheet.Name is Not Sheet1
Sheet1.Cells(currentRow, 1) = wsSheet.Cells(4, B)
Sheet1.Cells(currentRow, 2) = wsSheet.Cells(6, B)
Sheet1.Cells(currentRow, 3) = wsSheet.Cells(9, B)

Next wsSheet

Mvh
Jesper

Synes godt om

jonasboege Praktikant

11. december 2008 - 12:42 #1

Hej - her er mit bud.

Sub hjaelp()
Dim shtName As Variant, currentRow As Integer

currentRow = 10 'Start at row 10

Sheets(1).Select
AntalArk = Worksheets.Count - 1

For Tael = 1 To AntalArk

ActiveSheet.Next.Select
shtName = ActiveSheet.Name

Sheets(1).Cells(currentRow, 1).Value = shtName
Sheets(1).Cells(currentRow, 2).FormulaLocal = "='" & shtName & "'!B4"
Sheets(1).Cells(currentRow, 3).FormulaLocal = "='" & shtName & "'!B6"
Sheets(1).Cells(currentRow, 4).FormulaLocal = "='" & shtName & "'!B9"

currentRow = currentRow + 1

Next Tael

Sheets(1).Select
Range("A10").Select

End Sub

Synes godt om

jonasboege Praktikant

11. december 2008 - 12:43 #2

Hov - det var jo et svar...

Sub hjaelp()
Dim shtName As Variant, currentRow As Integer

currentRow = 10 'Start at row 10

Sheets(1).Select
AntalArk = Worksheets.Count - 1

For Tael = 1 To AntalArk

ActiveSheet.Next.Select
shtName = ActiveSheet.Name

Sheets(1).Cells(currentRow, 1).Value = shtName
Sheets(1).Cells(currentRow, 2).FormulaLocal = "='" & shtName & "'!B4"
Sheets(1).Cells(currentRow, 3).FormulaLocal = "='" & shtName & "'!B6"
Sheets(1).Cells(currentRow, 4).FormulaLocal = "='" & shtName & "'!B9"

currentRow = currentRow + 1

Next Tael

Sheets(1).Select
Range("A10").Select

End Sub

Synes godt om

jnh Nybegynder

11. december 2008 - 13:56 #3

tak for det... det virker ;)

Synes godt om

jonasboege Praktikant

11. december 2008 - 14:05 #4

Der er helt sikkert en smartere måde at gøre på det end at løbe alle ark igennem for at finde navnet... men jeg er ikke nået dertil i mit selvstudium endnu...

Synes godt om

jonasboege Praktikant

11. december 2008 - 15:02 #5

Sådan - så slipper man for at løbe alle arkene igennem for at få navnet...
Tak for spørgsmålet - jeg kan godt selv komme til at bruge den fremover :-)

Sub LidtBedre

Dim currentRow As Integer

currentRow = 10 'Start at row 10

Sheets(1).Select
AntalArk = Worksheets.Count

For arkNr = 2 To AntalArk

Sheets(1).Cells(currentRow, 1).Value = Sheets(arkNr).Name
Sheets(1).Cells(currentRow, 2).FormulaLocal = "='" & Sheets(arkNr).Name & "'!B4"
Sheets(1).Cells(currentRow, 3).FormulaLocal = "='" & Sheets(arkNr).Name & "'!B6"
Sheets(1).Cells(currentRow, 4).FormulaLocal = "='" & Sheets(arkNr).Name & "'!B9"

currentRow = currentRow + 1

Next arkNr

Range("A10").Select

End Sub

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS