< návrat zpět

MS Excel


Téma: Makro - vyhledej datum a zkopiruj hodnoty rss

Zaslal/a 25.2.2016 13:22

Zdravim,

Potreboval bych pomoc s makrem, ktere ma za ukol:

Zkopirovat hodnoty z sheetu A z radku X do sheetu X na radek s datem, ktere se rovna datu v sheetu A v bunce A1 ( napr tedy hodnoty 1,2,3,4,5,6 z sheetu A zkopirovat do bunek B5:G5 v sheetu x) a nasledne udelat totez s radkem Y (do sheetu Y) a s radkem Z (do sheetu Z).

Kdyz v bunce A1 zmenim datum na rekneme 24.2.2016, tak chci, aby se hodnoty kopirovaly do oblasti B4:G4, kdyz na 26.2.2016, tak do oblasti B6:G6 atd. Kopirovat se tedy budou vzdy 3 radky do prislusnych sheetu a oblasti, pricemz kazdy den bude pribyvat do sheetu X,Y a Z jedno nove datum.

Pouzivam Office 365 (2013) 64 bit verzi.

Predem diky moc za pomoc.

Pepe

Příloha: zip30370_datum.zip (8kB, staženo 36x)
Zaslat odpověď >

#030383
elninoslov
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RZdroj As Long, RCiel As Long, D As Date, Nazvy, i As Integer
If Not Intersect(Target, Cells(1, 1)) Is Nothing Then
D = Cells(1, 1): Nazvy = Array("X", "Y", "Z")
On Error Resume Next
For i = LBound(Nazvy) To UBound(Nazvy)
With Worksheets(Nazvy(i))
RZdroj = WorksheetFunction.Match(Nazvy(i), Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row), 0)
RCiel = WorksheetFunction.Match(CLng(D), .Cells(1, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row).Value2, 0)
If Err = 0 Then .Cells(RCiel, 2).Resize(1, 6).Value = Cells(RZdroj, 2).Resize(1, 6).Value Else Err.Clear
End With
Next i
End If
End Sub
citovat
#030448
elninoslov
Datum1.xlsm - iba zmeníte hodnotu dátumu v A1 na liste A, a samé to skopíruje hodnoty na dané miesta.
Datum2.xlsm - hodnoty na dané miesta to skopíruje až po stlačení tlačidla.
Příloha: zip30448_datum2.zip (35kB, staženo 38x)
citovat
#030502
avatar
Dekuji prevelice, funguje presne tak, jak jsem si predstavoval :-)

Pepecitovat
#030538
elninoslov
Úprava podľa SZ.
Příloha: zip30538_datum34.zip (54kB, staženo 39x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09