31. august 2008 - 18:14Der er
8 kommentarer og 1 løsning
ændring i formel:
Jeg anvender følgende formel v. en knap:
Sub Knap4_Klik() Application.ScreenUpdating = False a = Sheets(1).Range("D6:F6").Value If IsEmpty(Sheets(2).Range("D9")) Then Sheets(2).Range("D9:F9").Value = a Else rk = Sheets(2).Cells(65500, "D").End(xlUp).Row + 1 Sheets(2).Range("D" & rk & ":F" & rk) = a End If Application.ScreenUpdating = True [D6:F6] = ""
Nu ønsker jeg at den i stedet for flytter data over til ...\mappe2.xls i stedet for bare til ark2.
Med kunstig intelligens skaber HP’s nye OmniBook X 14 en unik og skræddersyet brugeroplevelse målrettet dem, der ønsker høj ydeevne og intelligente funktioner
Private Sub CommandButton1_Click() x = ActiveSheet.Range("A6") Workbooks.Open Filename:="c:\masterfil.XLS" Sheets(1).[A6] = Sheets(1).[A6] + x Workbooks("masterfil.xls").Close savechanges:=True End Sub
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.
