• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

slo by urobit novu tabulku podla mien a tam dodat maticovy vzorec (pri zapise treba stlacit ctrl+shift+enter) =SUM(IF($E$6:$N$73 = AD6;1;0)) a nakoniec to len zoradit podla score

prikladam prilohu tam to bude lepsie vidiet (vpravo je tabulka):

:)) sila zvyku ... lebo casto upravujem kod a do tohoto zapisu je to jednoduchsie upravovat

no moznosti je viac

napr:
Sub Macro1()
For x = 2 To Cells(2, 2).End(xlDown).Row
aSum = aSum + Cells(x, 2)
Next
MsgBox aSum
End Sub

na ten mail uz ani heslo neviem :)))

poslite to na dogaloq@gmail.com alebo sem na forum ako prilohu

zo zadania absolutne netrusim co potrebujete ... ci vam nerata vzorec alebo ci chcete vidiet vcorec ale nie vysledok

pridajte prilohu

skuste si vytvorit PivotTabulku

slo by to takto:

inac by ste museli pouzit makro:
Sub test()
For x = 2 To 13
For y = 1 To 10
If Cells(x, y).Interior.Color <> 65535 Then Cells(x, y) = ""
Next
Next
End Sub

nestacilo by prefarbit pismo na bielo? :))

alebo staci vytvorit pivot table

dobra by bola priloha

najprv si set-nite Workbooks.Open (Cesta & Cells(i, 2))

a potom sa odkazujte normalne ako na excel

tj.:
For i = 10 To Range("b65000").End(xlUp).Row
set aExcel = Workbooks.Open (Cesta & Cells(i, 2))

aExcel.cells(1,1) = activeworkbook.name
aExcel.Range("AF17:AH17").FormulaR1C1 = "4/28/2014"
aExcel.Close True
Next i

neviem ci to pomoze skuste tento event:

trebaho zapisat do ThisWorkbook
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
End Sub

nejak som to velmo nestudoval lebo tu prilohu co ste poslali je dost zla

- mrve linky znamenaju ze tam mate connectivitu na nejaky subor ktory nemam pristupny
- dalsia vec ta tabulka co tam je nema nic spolocne s tym XMLkom co ste tam pridali

tak vam posielam len pre zabavu kod ktory pracuje s XML ... da saa s nim citat a aj zapisovat do XML:

Private xmldoc As New MSXML2.DOMDocument
Private nodelist As MSXML2.IXMLDOMNodeList

Sub test()
xmldoc.Load (ActiveWorkbook.Path & "\Soubor v XML.xml")
Set nodelist = xmldoc.SelectNodes("//pain.001.001.02")
End Sub
treba potom este v VBA nastavit referenciu: Microsoft XML, v6.0

potom staci len si dat v debugery a pozerat child nodov a mozte s tym citat a aj zapisovat

toto by sa viac hodilo na nejaky "administrator" forum

ale da sa to urboit s VPN-kom resp. zdialenou spravou

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje