Makro (visual basic)
Jeg har brug for hjælp til makroer i excel, det drejer sig om et beregningsark på mit arbejde, som udfører nogle beregninger via makroer, men da jeg ikke er så stærk i visual basic som jo ligger til grund for makroer, har jeg brug for lidt hjælp til dette.Jeg skal udvide regnearket fra 13 rækker til 18 rækker, men jeg har en fornemmelse af at nogle af makroerne har indflydelse på resultatet, så derfor ville lidt expert hjælp være herligt.
selve makroerne er beskrevet neden under, men det er de 2 øverste makroer som jeg har mistænkt for at have indflydelse på beregningerne, hvad gør disse 2 makro (GVberegn) og (mult_t) ???
Håber der er nogen der kan hjælpe mig :-)
Sub GVberegn()
Sheets("Beregningsark").Select
Range("G7").Select
ActiveCell.FormulaR1C1 = "=Gulvvarme!R[-6]C[4]"
Sheets("Gulvvarme").Select
Range("A1").Select
End Sub
'
' mult_t Makro
' Makro indspillet 27-06-97 af Ole Lindhardt
'
'
Sub mult_t()
Sheets("Beregningsark").Select
Range("K6").Select
If Range("k6") > -0.9 Then
Range("K6").GoalSeek Goal:=-1, ChangingCell:=Range("B4")
End If
Range("G7").Select
ActiveCell.FormulaR1C1 = "=Tabeller!R[8]C[9]"
Sheets("Multitherm").Select
Range("a1").Select
End Sub
' Gulvtabel Makro
' Makro indspillet 22-05-97 af Ole Lindhardt
'
'
Sub Gulvtabel()
Sheets("Tabeller").Select
Application.Goto Reference:="R1C1"
End Sub
'
' TilbageTop Makro
' Makro indspillet 22-05-97 af Ole Lindhardt
'
'
Sub TilbageTop()
Sheets("Beregningsark").Select
Application.Goto Reference:="R1C1"
End Sub
'
' GVberegn Makro
' Makro indspillet 07-07-97 af Ole Lindhardt
'
'
Sub GVberegn()
Sheets("Beregningsark").Select
Range("G7").Select
ActiveCell.FormulaR1C1 = "=Gulvvarme!R[-6]C[4]"
Sheets("Gulvvarme").Select
Range("A1").Select
End Sub
' NavnAdresse Makro
' Makro indspillet 07-07-97 af Ole Lindhardt
'
'
Sub NavnAdresse()
Sheets("NavnAdresse").Select
Range("A1").Select
Range("B2").Select
End Sub
'
' GVudskr Makro
' Makro indspillet 08-07-97 af Ole Lindhardt
'
'
Sub GVudskr()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("GVmatr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("GVbrev").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Gulvvarme").Select
End Sub
' MTudskriv Makro
' Makro indspillet 08-07-97 af Ole Lindhardt
'
'
Sub MTudskriv()
Application.Run Macro:="mult_t"
Sheets("Multitherm").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("MTmatr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("MTbrev").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Multitherm").Select
End Sub
