Kopiera formler med Macro

[rob_wik]

Jag har använt Macro ett tag nu och börjar förstå grunderna. Dock sitter jag med ett problem som jag nu spenderat hela eftermiddagen med att försöka lösa.

 

Så här vill jag att det ska fungera.

 

När jag trycker på en knapp vill jag att macrot kopierar en formel och kopierar in den i ett annat kalkylblad. Dock på ledig rad.

 

Här är min formel:

Sub Kopiera

Sheets("skapa en ny säljare").Select

Range("g7").Select

Selection.Copy

Sheets("SoHo").Select

Range("BW2").Select

lMaxRows = Cells(Rows.Count, "BW").End(xlUp).Row

Range("BW" & lMaxRows + 1).Select

ActiveSheet.Paste

End Sub

 

MEd denna lyckas jag få den att kopiera formeln som ser ut enligt:

=SUMMA(OM(ny!B1="SOHO";ny!AP44;0))

MEn när jag klistrar in formeln får jag:

=SUMMA(OM(ny!#REFERENS!="SOHO";ny!AP44;0))

 

Jag blir galaen vad göra jag för fel?

[Monshi]

Lite kortare, lite finare... denna borde fungera

Sub Kopiera()
Dim rnTarget As Range
Set rnTarget = Sheets("Soho").Cells(Rows.Count, "BW").End(xlUp).Row.Offset(1)
rnTarget.Formula = Sheets("skapa en ny säljare").Range("g7").Formula

End Sub

Kolla att Set-satsen blir rätt cell.

[rob_wik]

Tack men jag får upp ett fel när jag använder makrot.

 

Jag får fel på Set rnTarget

Det är flik Soho och det är column BW och ner som den ska kopiera in i.

 

Vad tror du kan vara fel?

 

 

[Monshi]

mmh, gör om, gör rätt..

Sub Kopiera()
Dim rnTarget As Range
Set rnTarget = Sheets("Soho").Cells(Rows.Count, "BW").End(xlUp).Offset(1)
rnTarget.Formula = Sheets("skapa en ny säljare").Range("g7").Formula

End Sub

 

Tar och flyttar tråden till VBA samt tipsar dig om den fastklistrade tråden där:

//eforum.idg.se/topic/220943-riktlinjer-for-bra-vba-kod/