VBA Excel makro s if Vyřešeno
Napsal: 01 črc 2013 15:27
Zdravímm, už zase otravuji
kod makra, pripadne je i v prilozenem sesite.
Trochu badam jak udelat aby pro i ktere bude od hodnoty radku ktery je posledni plny + 1 (ci prvni prazdny) a zaroven v tom radku je bunka a1 <> od 0 (ci "")
tak aby oznacil v tom radku byslim a-e a zkopiroval to nejak tento cyklus aby delal treba do i+10 (nevim jak tomu rici do posledni bunky je asi sloupec staci zmenit z e na a mno ted me napadlo)
problem je takovyy ze jak si ja predstavuji tu praci s I to nedela nemel by nekdo tip kde delam chybu?
tak jsem to odeslal a hned me napadlo co a jak
jeste by mne zajimalo jak nastavit aby to kopiroval pod sebe od ja nvm neceho treba dejme tomu od m=20 po jednom vim ze do c++ bych to zapsal jako m++ do cyklu ale tu si nejsem jisty, pripadne pokud bych chtel aby to kopiroval do jineho sesitu? pripadne puteni makra v jinem sesite? diky moc za odpovedi pokud by nekdo vedel ci mel tip na nejaky dobry material (bral bych neco pro novacka treba kde mi ossvetli proc nekdy banality hazi error 1004)
nize jsem jeste dokazal upravit kod pro kopirovani do jineho souboru
tak nakonec asi resim nejvice problem spusteni dalsiho makra v jinem sesite aby vykonalo nejakou dalsi cisnost celkem pujde asi o tri sesity se kterym je nutno pracovat do jednoho vyplnit data ty nasledne zkopirovat do formulare ten vytisknout a nova data tyy pro ktere se tikli formulare odeslat mailem v jeste jinem sesite takze jsem si na to vymyslel 3 makra jedno co bude data kopirovat pak ejdno co bude tisknout formulare a jedno co odeslae soubor mailem jde je nejak propojit aby napr po skonceni makra jedna se sputilo makro v sesite dve?
// tak nakonec jsem schopen to asi sepsat do jednoho makra, a nechapu proc kdyz nad tim sedim celej den tak po tom co se manpisu to zahadne funguje
► Zobrazit spoiler
kod makra, pripadne je i v prilozenem sesite.
Trochu badam jak udelat aby pro i ktere bude od hodnoty radku ktery je posledni plny + 1 (ci prvni prazdny) a zaroven v tom radku je bunka a1 <> od 0 (ci "")
tak aby oznacil v tom radku byslim a-e a zkopiroval to nejak tento cyklus aby delal treba do i+10 (nevim jak tomu rici do posledni bunky je asi sloupec staci zmenit z e na a mno ted me napadlo)
problem je takovyy ze jak si ja predstavuji tu praci s I to nedela nemel by nekdo tip kde delam chybu?
tak jsem to odeslal a hned me napadlo co a jak
Kód: Vybrat vše
Sub zkouska()
Dim i As Integer
Sheets("List1").Select
For i = Cells(Rows.Count, "E").End(xlUp).Row + 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("E" & i).Value <> "x" & Range("A" & i).Value <> "" Then
Range("A" & i & ":D" & i).Select
Selection.Copy
Range("M" & i).Select
ActiveSheet.PasteSpecial
Application.CutCopyMode = False
End If
Next
End Subjeste by mne zajimalo jak nastavit aby to kopiroval pod sebe od ja nvm neceho treba dejme tomu od m=20 po jednom vim ze do c++ bych to zapsal jako m++ do cyklu ale tu si nejsem jisty, pripadne pokud bych chtel aby to kopiroval do jineho sesitu? pripadne puteni makra v jinem sesite? diky moc za odpovedi pokud by nekdo vedel ci mel tip na nejaky dobry material (bral bych neco pro novacka treba kde mi ossvetli proc nekdy banality hazi error 1004)
nize jsem jeste dokazal upravit kod pro kopirovani do jineho souboru
► Zobrazit spoiler
tak nakonec asi resim nejvice problem spusteni dalsiho makra v jinem sesite aby vykonalo nejakou dalsi cisnost celkem pujde asi o tri sesity se kterym je nutno pracovat do jednoho vyplnit data ty nasledne zkopirovat do formulare ten vytisknout a nova data tyy pro ktere se tikli formulare odeslat mailem v jeste jinem sesite takze jsem si na to vymyslel 3 makra jedno co bude data kopirovat pak ejdno co bude tisknout formulare a jedno co odeslae soubor mailem jde je nejak propojit aby napr po skonceni makra jedna se sputilo makro v sesite dve?
// tak nakonec jsem schopen to asi sepsat do jednoho makra, a nechapu proc kdyz nad tim sedim celej den tak po tom co se manpisu to zahadne funguje