Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Excel VBA - vytvoření databáze

Když se tak na to dívám, tak v tom větvení (které silně doporučuji předělat na Select Case) bych si pouze nastavil vhodné parametry a to kopírování provedl až nakonec ... ...
... :i: ... A když už jsem to začal předělávat, tak mi svitlo, že se vlastně můžeš kompletně obejít bez té haldy větví - . Nějak takhle:

Skupina = Cells(i, 10)
Range(Cells(i, 2), Cells(i, 11)).Copy
Sheets(Skupina).Select
x = Range("B1").End(xlDown).Row + 1
Cells(x, 2).Select
ActiveSheet.Paste
Sheets("Přehled").Select

Asi bys měl ještě ošetřit existenci listu s názvem v proměnné Skupina, prázdnou buňku, apod., resp. to můžeš kontrolovat při zadání na listu Přehled.

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny