ahoj
ano, to som uz medzitym spravil, nie tak krasne elegantne ako Ty ale funguje.
diky, je to super
ahojte
v exceli mam tabulku z ktorej chcem odoslat vsetky zaznamy v stlpci D (material) ktore este neboli odoslane. Chcem aby boli v maily kazdy zaznam v jednom riadku. Dokazem spravit vsetko, a odoslat jeden riadok (zaznam), neviem ako odoslat viac riadkov (moze byt jeden aź veľa).
v prilohe je kod ktory odosle prvy zaznam, ktory este nebol odoslany, je tam aj zistenie posledneho existujuceho zaznamu, viem si spravit cyklus od prveho po posledny zaznam ale neviem ako tie zaznamy potom dat do objektu mailu. Vopred Vam dakujem
ahoj
pokial viem , odoslanie emailu bez vedomia uzivatela je uz "virus", co ked posle tvojmu šefovi email s obsahom "Ty debil"
neviem ci to jednoducho obides
zaujimalo by ma na čom musi fičať človek ktorý dokaže založiť takuto tému
pazaz: aj si si to po sebe prečital? neviem či tu niekto okrem elninoslov-a dokaže prečitať Tvoje myšlienky.
kam sa na toto hrabe moje amaterske riesenie
pači sa
vyskušaj, keby dačo, piš..
je uz priliz neskoro na to aby som zacal rozmyslat ale aspon daco:
Zaznamenal si makro a to chces nacyklovat , a to nebude len tak. Co si pametam ked som naposledy nieco take robil, tak zabudni na medzeri a diakritiku v adresaroch aj nazvoch suborov (zatial mi vzdy robily len problemy, max podtrzitko, to je OK), to ze to zatial tebe funguje je len tym ze to nedavas do premennej, mas to tam napevno, v cykle budeme musiet ist do premennej.
adresar kam sa ma subor ulozit, je uz vytvoreny? treba ho vytvorit? treba skontrolovat ci existuje a podla toho bud tam ist alebo vytvorit? - tu sa to trochu komplikuje, a jej to to co pri nahravani makra nevidis.
daj teda dalsei info, vsetko co ta napadne.
ja osobne idem spat , takze najblizsie zajtra podvecer , ale mozno sa niekto chyti ked doplnis nejake veci.
urcite sa to da, v podstate su cykly zakladom makier
treba vsak prilohu aby sme zbytocne neteoretizovali
zacasl by som tymto
ChDrive C: - pripadne iny disk
ChDir Application.ThisWorkbook.Path - pripadne cestu k suborom, ak niesu pri hlavnom subore
plne suhlasim v Vovka
vytvarat grafy makrom = plne prekvapeni
ak nechces prekvapenia, iba pripravuj data pre graf makrom
o
Ďakujem
ake proste, a ja mam makro a isiel by som do funkcii
Edit: prilozena "tabulka" je pre tento web vytvoreny vzor, realita je trosku rozsiahlejsia a riadky sa nepridavaju
ahojte
do prveho stlpca davam cenu, do druheho vyberiem pozadovany mesiac a chcem aby sa mi dana cena objavila v stlpci prislusneho mesiaca, aktualny riadok (priloha). Existuje na to nejaky vzorec , alebo budem musiet ostat pri makre, pripadne si skusim vytvorit svoju funkciu?
Vopred dik
minuuly tyzden som takto riesil vyhladanie a prenos, avsak z dvoch excel. Neviem ako funguje ares, mozno ťa to aspon nakopne.
Sub prenos()
For r = 1 To 1001 'prejde bunky v cielovom liste
firma = Cells(r, 1).Value
Windows(pdp).Activate 'ja tu prechadzam na zdrojovy list, neviem ako sa ide na ares
Sheets("Plan").Select 'vyberiem pozadovany list s datami
For r_plan = 1 To 1001 'prejdem bunky v zdojovom liste , u teba ares
If firma = Cells(r_plan, 1).Value Then 'ked najde firmu podla nazvu
IC = Cells(r_plan, 2).Value 'ulozi hodnotu z toho idteho riadku, druheho stlpca do IC
Windows(hs).Activate 'prechod na cielovy subor
Cells(r, 2).Value = IC 'ic ulozi do riadku kde bol zdroj pre firmu
GoTo diel_preneseny
End If
Next r_pdp 'zabezpeci prechod vsetkych 1000 riadkov v zdoji (u teba ares, neviem teda ci to takto funguje)
Windows(hs).Activate 'ak taku firmu nenajde v zdroji tak prejde na cielovy subor , kde prejde na dalsiu firmu
diel_preneseny:
Next r 'prejde vsetkych 1000 riadkov v zdroji
End Sub
ak si najdes forum kde Ťa s radostou privitaju s velkymi pismenami....
inac , neskusis nieco pohladat ? myslim ze tema "dochadzka" je asi najcastejsie spominana prave v exceli
peto1269 napsal/a:
a keby som aj mal taky problem
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.