MS Excel

Téma: úprava makra

Zaslal/a neo.tomas 11.6.2012 16:51

Zdravím, potřebuji poradit jak v kodu makra zajistit aby si kopírovalo z jedné určité buňky třeba (B1) a zbytek byl opět (realitivní odkaz)

'
' Makro4 Makro
'

'
ActiveCell.Offset(0, -4).Range("A1").Select
Selection.Copy
ActiveCell.Offset(4, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False

děkuji za radu

Uzamčeno - nelze přidávat nové příspěvky.

Jeza(11.6.2012 19:02)#008791

vyprdnout se na offsety :-)
ActiveCell.Offset(0, -4).Range("A1").Select
Selection.Copy
range("B1")copy
a možná by vůbec celý tvůj kód stačilo nahradit
range("B1")copy activecell
Application.CutCopyMode = False

M@citovat

neo.tomas(12.6.2012 8:48)#008792

Děkuji za odpověd, možná jsem se špatně vyjádřil :-) radši to začnu od začátku, a třeba mi poradíte jak to udělat úplně jinak ...
viz příloha, mám v buňce B1 vždy aktuální datum a při změně textu v buňce A3 potřebuji překopírovat aktuální datum do buňky B3 (pouze hodnotu - aby následující den tam byl pořád stejný údaj)a to samé u A4, A5, A6, ....
Děkuji

Příloha: zip

8792_doplneni_datumu.zip (7kB, staženo 13x)

citovat

Jeza(12.6.2012 9:34)#008794

Do listu1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 2 Then
Cells(Target.Row, 2) = Now
End If
End Sub

M@citovat

neo.tomas(12.6.2012 12:12)#008798

Super děkuji za vše :-)citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.