Vkládání řádků - pro většinu asi maličkost   zodpovězená otázka

VB6/VBA

Zdravím všechny, potřeboval bych poradit. Mám soubor, ve kterém mám ve sloupci "F" čísla označující počet kartonů. potřeboval bych, zda- li by šlo nějakým makrem udělat, aby to pod řádek s tímto číslem vložilo vždy o jeden řádek méně, než je hodnota čísla tzn. např: pod řádek s jedničkou nevkládat nic, pod řádek s dvojkou vložit jeden řádek,.............pod řádek s pětkou 4 řádky atd. Poradí, prosím, někdo?

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Možná by neškodilo sděliti o jaký soubor se jedná. Pravděpodobně Excel, ale kdo si tím má být jistý?

nahlásit spamnahlásit spam 0 odpovědětodpovědět

jj, excel, omlouvám se

nahlásit spamnahlásit spam 0 odpovědětodpovědět
  Sub PridejRadky()
    Dim r As Integer
    Dim k As Integer
    For r = 1 To 50  ' upravte si
      k = Range("F" & r).Value
      If k > 1 Then
        For i = 0 To k - 2
          Range("F" & r + 1 + i).EntireRow.Insert
        Next
      End If
    Next
  End Sub

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

Super, to je přesně ono. Velice děkuji.

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback