Avatar billede juks Novice
03. juni 2016 - 09:57 Der er 2 kommentarer

VBA kode sløv

Hej Drenge,
Denne kode er ekstrem sløv , jeg kan se problemet ligger den del af koden jeg har udraget her , har i et godt råd ?
-----------
For i = 1 To r
For j = 1 To k
  Cells(i, j) = data(i, j)
tt = tt + 1
Next j

Next i
_---------------------------

Dim name, sti As String
Dim data() As Variant
Dim i, r, k As Integer
Dim tt As Integer

tt = 0
name = ThisWorkbook.name
sti = ThisWorkbook.Path

Application.ScreenUpdating = False
      Workbooks.Open Filename:= _
      ThisWorkbook.Path & "\SP__15.xlsx"

Sheets("Diverse").Activate

ActiveCell.SpecialCells(xlLastCell).Select
r = ActiveCell.Row
k = ActiveCell.Column
ReDim data(r, k)

For i = 1 To r 'rækker

    For j = 1 To k ' kolonner
    data(i, j) = Cells(i, j)
   
   
    Next j

Next i
Windows(name).Activate
    Sheets("Diverse").Select
  Cells.Select
  Selection.ClearContents
 

For i = 1 To r
For j = 1 To k
  Cells(i, j) = data(i, j)
tt = tt + 1
Next j

Next i
Application.ScreenUpdating = True
Avatar billede kabbak Professor
03. juni 2016 - 10:18 #1
Jeg kan ikke se hvor det første af koden kommer fra, men resten burde kumnne laves sådan, jeg har ud kommenteret din gamle kode.

Dim name, sti As String
'Dim data() As Variant
'Dim i, r, k As Integer
Dim tt As Integer
Dim IND_data As Variant


tt = 0
name = ThisWorkbook.name
sti = ThisWorkbook.Path

Application.ScreenUpdating = False
      Workbooks.Open Filename:= _
      ThisWorkbook.Path & "\SP__15.xlsx"

Sheets("Diverse").Activate

ActiveCell.SpecialCells(xlLastCell).Select
r = ActiveCell.Row
k = ActiveCell.Column
ReDim data(r, k)
IND_data = Range(Cells(1, k), Cells(r, k))
'For i = 1 To r 'rækker
'
'    For j = 1 To k ' kolonner
'    data(i, j) = Cells(r, j)
'
'
'    Next j

Next i
Windows(name).Activate
    Sheets("Diverse").Select
  Cells.Select
  Selection.ClearContents
Range(Cells(1, k), Cells(r, k)) = IND_data

'For i = 1 To r
'For j = 1 To k
'  Cells(i, j) = data(i, j)
'tt = tt + 1
'Next j
'
'Next i
Application.ScreenUpdating = True
Avatar billede juks Novice
03. juni 2016 - 10:39 #2
ja sorry var bare presset i tid .
Ser jo bare ud til hun kopiere et ark fra workbook til en anden !!! KVINDER altså
Avatar billede 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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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