Hej, er der nogen der kan se hvad der er galt her?!? Jeg får nemlig ikke vist det som jeg vælger i min pop-up menu!Får ikke en fejl-meddelse,og det ark som skulle vise det pågældende data bliver åbnet,men der er bare ingen data i den!DEt ser ud til,at det data der skulle overføres fra arket "DATABASE" til arket "PRIORITY" ikke bliver overført som det skal!
Her er koden:
Private Sub CmdOK_Click() Rem hvis element er udpeget If Me.LstPriority <> -1 Then findPriorityDB Me.LstPriority, 16 'række 16 = Q
ActiveWorkbook.Sheets("PriorityStatus").Activate Unload UfmPriority End If End Sub Private Sub LstPriority_Click() 'ved klik i listbox
End Sub Private Sub Userform_Activate() With LstPriority .RowSource = "PGRPriority" .ListIndex = 0 End With End Sub Private Sub findPriorityDB(navn, kolonne) Dim arkRæk arkRæk = 5
Rem Slet gl. indhold On Error Resume Next ActiveWorkbook.Sheets("PriorityStatus").Range("A5:I54").Select Selection.ClearContents
With ActiveWorkbook.Sheets("Database") For ræk = 5 To 65500 If .Cells(ræk, kolonne) = "" Then Exit Sub Else If .Cells(ræk, kolonne) = navn Then ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 1) = .Cells(ræk, 3) 'kolonne - C ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 2) = .Cells(ræk, 9) 'kolonne - J ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 3) = .Cells(ræk, 13) 'kolonne - N ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 4) = .Cells(ræk, 17) 'kolonne - R ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 5) = .Cells(ræk, 18) 'kolonne - S ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 6) = .Cells(ræk, 19) 'kolonne - T ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 7) = .Cells(ræk, 20) 'kolonne - U ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 8) = .Cells(ræk, 14) 'kolonne - O ActiveWorkbook.Sheets("Priority").Cells(arkRæk, 9) = .Cells(ræk, 16) 'kolonne - Q Rem .... evt flere kolonner
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
hmm...har rettet lidt på det...men stadig ingen held:(,her er den nye kode:
Private Sub CmdOK_Click() Rem hvis element er udpeget If Me.LstPriority <> -1 Then findPriorityDB Me.LstPriority, 16 'række 16 = Q
ActiveWorkbook.Sheets("Ark1").Activate Unload UfmPriority End If End Sub
Private Sub LstPriority_Click() 'ved klik i listbox
End Sub
Private Sub Userform_Activate() With LstPriority .RowSource = "PGRPriority" .ListIndex = 0 End With End Sub Private Sub findPriorityDB(navn, kolonne) Dim arkRæk arkRæk = 5
Rem Slet gl. indhold On Error Resume Next ActiveWorkbook.Sheets("Ark1").Range("A5:I5").Select Selection.ClearContents
With ActiveWorkbook.Sheets("Database") For ræk = 5 To 65500 If .Cells(ræk, kolonne) = "" Then Exit Sub Else If .Cells(ræk, kolonne) = navn Then ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 1) = .Cells(ræk, 3) 'kolonne - C ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 2) = .Cells(ræk, 9) 'kolonne - J ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 3) = .Cells(ræk, 13) 'kolonne - N ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 4) = .Cells(ræk, 17) 'kolonne - R ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 5) = .Cells(ræk, 18) 'kolonne - S ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 6) = .Cells(ræk, 19) 'kolonne - T ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 7) = .Cells(ræk, 20) 'kolonne - U
Det er ikke mange oplysninger, du kommer med. Så må jeg jo spørge i stedet for - kommer du ind i linjen
ActiveWorkbook.Sheets("Ark1").Cells(arkRæk, 1) = .Cells(ræk, 3) 'kolonne - C
Hvis du gør, så tjek hvad value på .Cells(ræk, 3) er.
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.