Kopírování mezi listy EXCEL podmíněné hodnotou buňky Vyřešeno

[Danyy]

Nešlo by určit které buňky budou kopírovány, a datum kdy to bylo zkopirované.
předem moc dík.

mám makro z předchozího příspěvku i když je popsané ještě se v tom nevyznám.

Option Explicit
Option Compare Binary

Sub KopirovatNaListy()
' zdrojova data jsou na aktivnim listu, na cilovych listech v prvnim radku hlavicky
' nazvy cilovych listu jsou definovany v teto subrutine
Dim ZdrojOblast As Range, ZdrojRadek As Range, PoslSloupec As Range, c As Range
Dim CilList As String, CilRadek As Range, PoslRadek As Range
Set ZdrojOblast = ActiveSheet.UsedRange
Set ZdrojOblast = ZdrojOblast.Resize(ZdrojOblast.Rows.Count, 1)
For Each c In ZdrojOblast.Cells
' urceni poctu bunek v radku na zdrojovem listu
Set PoslSloupec = ActiveSheet.Range(c.Row & ":" & c.Row).Cells(Range(c.Row & ":" & c.Row).Cells.Count)
' presun na posledni neprazdny sloupec
If IsEmpty(PoslSloupec) Then Set PoslSloupec = PoslSloupec.End(xlToLeft)
' definovat zdrojovy radek, zdrojova data zacinaji ve sloupci B:B,
' ve sloupci A:A je identifikace ciloveho listu
Set ZdrojRadek = c.Resize(1, PoslSloupec.Column - 1).Offset(0, 1)
' urceni nazvu ciloveho listu
Select Case c.Value
Case "L"
CilList = "list3"
Case "M"
CilList = "list4"
Case "N"
CilList = "list5"
' dalsi listy
End Select
' urceni posledniho radku na cilovem listu, ulozena data zacinaji ve sloupci A:A
Set PoslRadek = Worksheets(CilList).Range("A:A").Cells(Range("A:A").Cells.Count)
' presun na posledni neprazny radek listu
If IsEmpty(PoslRadek) Then Set PoslRadek = PoslRadek.End(xlUp)
Set CilRadek = PoslRadek.Resize(1, PoslSloupec.Column - 1).Offset(1, 0) 'definovat cilovy radek
CilRadek.Value = ZdrojRadek.Value
Next c
End Sub

[Reklama]

[navstevnik]

Bylo vhodne zalozit novy dotaz.
Kopirovat pouze na jeden list? Budou kopirovany cele radky nebo jen bunky z jednoho sloupce nebo jen nektere bunky z radku?
Upresni, jak maji byt bunky ke zkopirovani oznaceny - zmenou barvy pozadi, znakem v pomocnem sloupci, jinak.
Datum pridat pred nebo za sloupec nakopirovanych bunek?
Pripadne pripoj jeste dalsi pozadavky, neni nijak zabavne procedury upravovat.