MS Excel

Dobrý den,

prosím vás, vytvořil sem si vynulovací tlačítko, které mi vynuluje celý sloupec. Jenže potřebuji, aby se po vynulování tato změna nepromítla na listu 2 se kterým je list 1 (kde je talčítko) propojeno.

Potřebuji abych na listu 1 zadal hodnoty které se promítnou na list 2, a po vynulování na listu 2 zůstaly.

Zaslat odpověď >

Strana: 1 2 další »

Vovka(2.1.2016 17:41)#028954

To je hezký příklad odlišné filozofie vzorců a VBA. Pokud se hodnoty na list2 promítají pomocí vzorců v buňkách listu2, pak zrušení hodnot ve zdroji zruší také hodnoty na příjmu. Asi jako když se díváte na televizi. Když přestane pracovat vysílač, zhasne vám obrázek. Když chci hodnotu na listu2 ponechat, musím včas změnit vzorec na hodnotu. Pak už se ale nová hodnota z listu1 na list2 nedostane (vzorec je fuč). Pokud to nevadí, je převod vzorce na hodnotu řešením.
VBA pracuje jinak. Popadne hodnotu z listu1 a namaluje ji na list2. Jde o jednorázový krok. Když smažu zdroj, list2 dál hodnotu ukazuje. Přenos nové hodnoty na list2 ale musím ve VBA opakovat pokaždé, když se má něco změnit. Z vašeho zadání není jasné, jak se to má chovat v čase.citovat

Milan9898(2.1.2016 17:55)#028955

Děkuji za odpověď.

Mělo by to fungovat takto.

List 1 (příjem do skladu), list 2 (sklad). Skladník příjme 5 ks motyk, což se zobrazí ve skladě. Poté přijme novou objednávku (vynuluje příjem) a zadá nové hodnoty 8 ks rýčů a 8 motyk. Na skladě se zobrazí 13 ks motyk a 8 rýčů.

Tedy po vynulování příjmu si sklad pamatuje že již má 5 ks motyk na skladě. A když skladník příjme nové zboží, tak se to přičte na sklad. :)
Moc děkuji!citovat

AL(3.1.2016 2:14)#028965

Keby si sa zaregistroval a vložil sem prílohu, už by ti to niekto veľmi pravdepodobne upravil. Máš pocit, že to dokážeš vo svojom súbore zmeniť na základe vzoru, ktorý ti niekto vytvorí? Mám podozrenie, že ťažko.citovat

Milan9898(3.1.2016 18:09)#028975

Bohužel se mi nepodařilo nahrát soubor sem :(

Tady je odkaz ke stažení: http://uloz.to/x5V3hvs9/sklad-xlsm

Prosím vás, kdo si najde čas a pokusí se o to :) děkujicitovat

ji026441(3.1.2016 18:27)#028976

Jednoduchý soubor podle zadaných kritérií.

Příloha: zip

28976_sklad.zip (18kB, staženo 20x)

citovat

AL(3.1.2016 19:50)#028978

@ ji026441
skúsil by som to v tomto prípade bez cyklu, nejak takto:
Private Sub CommandButton1_Click()
Dim wsP As Worksheet, wsS As Worksheet
Dim mRng As Range

Set wsP = Worksheets("příjem")
Set wsS = Worksheets("sklad")

With wsS
Set mRng = .Range(Cells(1, 1).Address, .Cells(Rows.Count, 1).End(xlUp).Address)
Set cell = mRng.Cells(WorksheetFunction.Match(wsP.[A2], mRng, 0), 1).Offset(0, 1)
cell.Value = cell + wsP.[B2]
End With

wsP.Cells(2, 2).ClearContents

End Subcitovat

Milan9898(3.1.2016 20:36)#028980

Výborná práce

ji026441 a AL

Jen se mi to nedaří použít tady :( ... potřebuji na listech opět prijem a sklad bunkdy E5 až E999 a F5 až F999 na obou listech :)

http://ulozto.cz/xL5b61UK/sklad-2015-2015-12-1-xlsx

Moc DĚKUJI!

citovat

ji026441(3.1.2016 21:06)#028981

je to předělané. Pokud chceš vložit přílohu, musíš jí zabalit do zip, nebo rar.

Příloha: zip

28981_sklad.zip (18kB, staženo 19x)

citovat

Milan9898(3.1.2016 21:13)#028982

:) prosím Tě udělal by si to přímo na ten odkaz co sem posílal, ten soubor je vyšší než povolená maximální hodnota souboru pro jeden příspěvek. I po přidání do archivu.

Kdyby to sem nešlo tak Milan.Plechac@seznam.cz

Si hodnej dík :)citovat

AL(3.1.2016 21:32)#028983

Milan, ty budeš veľký vtipálek. Zdá sa iba mne, že tvoja prvá príloha je "trošičku" iná, než tá druhá?

Skús toto:Option Explicit

Sub PrijemNaSklad()
Dim shPrijem As Worksheet, shSklad As Worksheet, rngAdr As String, srcArr, tgtArr, i As Integer, j As Byte
Set shPrijem = Sheets("prijem")
Set shSklad = Sheets("sklad")
rngAdr = "E5:F999"
srcArr = shPrijem.Range(rngAdr)
tgtArr = shSklad.Range(rngAdr)
For i = LBound(srcArr, 1) To UBound(srcArr, 1)
For j = LBound(srcArr, 2) To UBound(srcArr, 2)
tgtArr(i, j) = tgtArr(i, j) + srcArr(i, j)
Next j
Next i
shSklad.Range(rngAdr) = tgtArr
End SubAko malé cvičenie pre prácu s arrays mi to stačilo, tým končím. V posledných dňoch som už pracoval s Excelom viac, než dosť

Nie som si síce istý, že som pochopil pomerne vágny popis potřebuji na listech opět prijem a sklad bunkdy E5 až E999 a F5 až F999 na obou listech :), ale ten kódik je pomerne jednoduchý a nemal by byť problém si ho doupraviť.citovat

Strana: 1 2 další »

Téma: Nulovací tlačítko - bez změn v propojení

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Určení kraje dle databáze PSČ na základě adresy

Určení kraje dle databáze PSČ na základě adresy

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Vynásobit hodnoty kurzem - Power Query

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query