MS Excel

Ahoj
Pomůže mi někdo please, mám seznam dílů které se řadí podle určitého počtu,od nejmenšího po největší který měním ve sloupci A. Chci když zadám že mám 0 položek toho typu aby se spustilo makro na označení oblasti a odeslání na mail. Tlačítkem button mi to jde ale automaticky při změně hodnoty na 0 v buňce A2 to nejde. DĚKUJI ZA KAŽDOU RADU

Zaslat odpověď >

Maximus(17.8.2017 12:24)#037286

Ahoj, snad by to šlo takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Target
If Target = 0 Then Send_Range
[A2:D2000].Sort Key1:=[A2]
[A:A].Find(What:=m, LookIn:=xlValues).Select
End If
End Subcitovat

patrik1111(17.8.2017 13:47)#037288

Super Funguje. Děkuji moc

citovat

elninoslov(18.8.2017 0:53)#037296

No mne to skôr pripadne takto:
-je jedno v akom riadku stĺpca A (doteraz ukazovalo iba 5 riadkov)
-môže byť vyššia súvislá oblasť (doteraz iba 1 bunka)
-najskôr sa zistí, či v zmenenej oblasti sú 0
-zistí sa pozícia prvej 0 v zmenenej oblasti, a uloží sa artikel (pre neskoršie označenie)
-zoradí sa (aby 0 boli za sebou)
-označia sa a odošlú
-označí sa prvá z 0, ktoré boli naposledy pridané, pozícia v zoradených sa zistí podľa čísla artiklu

Ak som vedľa tak nič...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Art As String, R As Long
  If Target.Column = 1 Then
    On Error Resume Next
    R = WorksheetFunction.Match(0, Target, 0)
    On Error GoTo 0
    If R > 0 Then
      Art = Target.Cells(R).Offset(, 2).Value2
      With Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 4)
        .Sort Key1:=Cells(2, 1)
        Cells(1, 1).Resize(WorksheetFunction.CountIf(.Columns(1), 0) + 1, 4).Select
        Call Send_Range
        .Columns(3).Find(What:=Art, LookIn:=xlValues).Offset(, -2).Select
      End With
    End If
  End If
End Sub

Sub Send_Range()
  ActiveWorkbook.EnvelopeVisible = True
  With ActiveSheet.MailEnvelope
    .Introduction = "This is a sample worksheet."
    .Item.To = "elninoslov@gmail.com"
    .Item.Subject = "My subject"
    .Item.Send
  End With
End Subcitovat

patrik1111(18.8.2017 14:00)#037303

Děkuji to mi úplně stačí

citovat

patrik1111(21.8.2017 8:03)#037332

Ahoj. Nešlo by prosím ještě aktivovat nulu výpočtem buněk =J-K? aktivuje se jen při přepsáni ve sloupci A. viz soubor. Děkuji

Příloha: zip

37332_final-macro.zip (93kB, staženo 26x)

citovat

elninoslov(21.8.2017 9:52)#037333

Flintu do žita len tak nehádžem, ale pri Vás ju tuším aj zakopem :)
Tak ešte raz, dokola, čo so Vám písal minule, aj predminule s kontrolou 0 a 1 ...

Makro nedostane žiadnu indíciu o tom, že sa zmenila nejaká bunka vzorcom. Makro dostane iba informáciu, že sa prepočítava celý list - procedúra Calculate. Makro netuší nič o Vašej požadovanej informácii, či sa zmenila niektorá bunka v A na 0.

Preto som sa Vás minule pýtal, čo spôsobuje zmenu. Nepozerajme sa teraz vôbec na stĺpec A. Kašle naň pes. Je to výsledok podľa buniek J a K. Teda otázka znie :
Čo spôsobuje zmenu v J a K ? Je tam vzorec, alebo tam vpisuje hodnoty makro či Vy ručne ?

Ak je tam vzorec, tak aký ? Pozrime sa na bunky v tom vzorci, a nájdime takú ktorú mení makro alebo Vy. Prečo ? Lebo ak je zmenená nejaká hodnota makrom alebo Vami, tak VBA dostane indíciu, ktorá presne bunka bola zmenená. A keď budeme vedieť, ktorá bola zmenená, začneme podľa vzorcov v J a K (alebo v iných stĺpcoch, neviem kam až sa dostaneme po manuálne zapisovanú hodnotu), podľa náväznosti vypočítavať, čo je v A.

A sme doma, lebo zistíme, že bola vlastne v konečnom dôsledku zmenená 0 v A.

Chápete?

Ak totiž nikde nebudete vkladať ručne hodnotu, ale všetko čo je naviazané na A bude iba vzorcami, napadá ma okrem toho čo som Vám písal minule (nechať niekde v liste kópiu starých dát a pri každej Calculate ju kontrolovať - pomalé), ešte možnosť pri otvorení súboru načítať do Poľa tabuľku z listu, a pri každom Calculate kontrolovať - tiež pomalé, ale rýchlejšie ako kontrolovať všetky bunky v liste.

Ak to nezistíte, ktorá bunka bola zmenená, tak Vám bude makro v Calculate odosielať mail neustále, aj pri zmene bunky v B alebo C, proste ktorejkoľvek, nie iba v A, ako potrebujete!

Chápeme sa, ale bo zase nič ?

Teda teraz napíšte, čo je v J a v K, ak je tam niekde vzorec, napíšte čo je v bunkách použitých vo vzorci, ... opakujte až kým neprídete po nejakú bunku menenú bez vzorca.citovat

patrik1111(21.8.2017 13:55)#037345

Ano bude se hodnota vkládat ručně, po odběru dílu.
J=na skladě. K=odběr.citovat

elninoslov(29.8.2017 22:17)#037431

Tak skúste toto, je to na zmenu v stĺpci K. Vidím, že asi budete chcieť po odoslaní preniesť 0 riadky do druhého listu, to už zvládnete.

Příloha: zip

37431_final-macro.zip (101kB, staženo 26x)

citovat

patrik1111(30.8.2017 6:51)#037432

Ahoj

Trošku jsem to pozměnil. V listu "výsledek" do žlutého pole zadám čtečkou kod, vyhledá mi to v listu "data" zobrazí a odešle na e-mail.
Potřebuji PRVNÍ odpis dílu (-1) z aktuálního stavu 8. SPOO13-FSM-KOVOVY FILTR-MECH-8.a poté zobrazení a odeslání.Jinač každá odebraná položka bude odepsána a odeslána. Jde to udělat přes makro nebo vzorcem?

Příloha: zip

37432_kopie-hledat-vse.zip (97kB, staženo 25x)

citovat

Téma: Změna buňky na 0 a vyvolání makra

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje