puni
27.03.10,15:18
Zdravim,
potreboval by som radu z jednym problemom v exceli
mam tabulku v ktorej sa mi z externeho suboru kazdy den nacitavaju hodnoty
sucet tychto hodnot potrebujem kazdy den co najjednoduchsie skopirovat do druheho listu, moze to byt automaticky alebo aj nejaka funkcia vyvolana tlacitkom.
Prikladam nazorny subor z tabulkou, do bunky A1 zadam aktualny den a podla toho mi hodnotu spolu skopiruje do prislusneho riadku v liste 2 kde sa mi hodnoty za vsetky dni zratavaju spolu.
Dufam ze som dost zrozumitelne vysvetlil a dakujem za kazdu radu.
potreboval by som radu z jednym problemom v exceli
mam tabulku v ktorej sa mi z externeho suboru kazdy den nacitavaju hodnoty
sucet tychto hodnot potrebujem kazdy den co najjednoduchsie skopirovat do druheho listu, moze to byt automaticky alebo aj nejaka funkcia vyvolana tlacitkom.
Prikladam nazorny subor z tabulkou, do bunky A1 zadam aktualny den a podla toho mi hodnotu spolu skopiruje do prislusneho riadku v liste 2 kde sa mi hodnoty za vsetky dni zratavaju spolu.
Dufam ze som dost zrozumitelne vysvetlil a dakujem za kazdu radu.
PaloPa
27.03.10,19:06
Napr. takýmto makrom:
Sub Kopy_Aktual_Sumar()
Dim c As Range, xRng As Range
Set xRng = Sheets("2").Range("A1:A31")
For Each c In xRng
If c = Sheets("1").Range("A1") Then
c.Offset(0, 1) = Sheets("1").Range("B19")
MsgBox "Deň '" & c.Text & "' je aktualizovaný" & vbCrLf & _
"hodnotou '" & c.Offset(0, 1).Text & "'."
Exit Sub
End If
Next c
MsgBox "Deň '" & Sheets("1").Range("A1").Text & "' som v liste '2' nenašiel."
End Sub
Palo
Sub Kopy_Aktual_Sumar()
Dim c As Range, xRng As Range
Set xRng = Sheets("2").Range("A1:A31")
For Each c In xRng
If c = Sheets("1").Range("A1") Then
c.Offset(0, 1) = Sheets("1").Range("B19")
MsgBox "Deň '" & c.Text & "' je aktualizovaný" & vbCrLf & _
"hodnotou '" & c.Offset(0, 1).Text & "'."
Exit Sub
End If
Next c
MsgBox "Deň '" & Sheets("1").Range("A1").Text & "' som v liste '2' nenašiel."
End Sub
Palo
puni
28.03.10,09:22
super, toto funguje uplne paradne
Dakujem moc
Dakujem moc