VBA Excel makro s if

[Petrrr]

Zdravímm, už zase otravuji

Abbc3 Spoiler Show

Kód: Vybrat vše

Sub zkouska()

Dim i As Integer


Sheets("List1").Select

For i = Cells(Rows.Count, "E").End(xlUp).Row To (i + 1)
If Range("E" & i).Value <> "x" & Range("A" & i).Value <> "" Then

 
        Range("A1:D1").Select
        Selection.Copy
        
        Range("M1").Select
        ActiveSheet.PasteSpecial
        Application.CutCopyMode = False

End If
Next
End Sub

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 Sub

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

Abbc3 Spoiler Show

Kód: Vybrat vše

Sub zkouska()

Dim i As Integer
Dim m As Integer

Sheets("List1").Select
m = 5
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
Windows("test1.xlsx").Activate
        Range("M" & m).Select
        ActiveSheet.PasteSpecial
        Application.CutCopyMode = False
m = m + 1
Windows("test.xlsm").Activate
End If
Next
End Sub

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

[cmuch]

jeste by mne zajimalo jak nastavit aby to kopiroval pod sebe od ja nvm neceho treba dejme tomu od m=20

Dáno tím m kde začne vkládat, už si to tam měl.

Kód: Vybrat vše

Sub zkouska()

Dim i As Integer
Dim m As Integer

Sheets("List1").Select
m = 5
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
        Application.EnableEvents = False
        Workbooks("Sešit1").Sheets("List1").Range("M" & m & ":P" & m).Value = Range("A" & i & ":D" & i).Value
        m = m + 1
        Application.EnableEvents = True
End If
Next
End Sub

Jak zavolat makro v jiném sešitě nevím.

Jinak spoustu nápadů je tady
http://www.pc-help.cz/viewforum.php?f=35
http://office.lasakovi.com/excel/
http://excelplus.net/news.php a příklady http://excelplus.net/downloads.php?cat_id=2&download_id=6
dá se spoustu základů najít na netu

[Petrrr]

dik excel plus jsem neznal :)

[pavel.lasak]

Pro makro v jiném sešitě:

Application.Run "MujSesit.xlsm!MojeMakro"

[Petrrr]

dik moc