vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest poniedziałek, 29 kwietnia 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

 W jaki sposób zmodyfikować kod żeby automatycznie kontynuował wypełnianie wierszy według zamieszczonego kodu.


otwartyotwarty rozpoczął: jamanow postów: 3


napisał: jamanow
postów: 69


umieszczony:
11 grudnia 2012
20:07

  
Wielkie dzięki za szybka pomoc.
napisał: Trebor
postów: 1209


umieszczony:
11 grudnia 2012
16:30

  
Można jak poniżej:
Sub Makro3()
For i = 9 To 1300 Step 10
    Range(Cells(i, 2), Cells(i + 1, 2)).AutoFill Destination:=Range(Cells(i, 2), Cells(i + 8, 2)), Type:=xlFillDefault
Next i
End Sub
napisał: jamanow
postów: 69


umieszczony:
11 grudnia 2012
03:23

  
w jaki sposób zmodyfikować kod żeby automatycznie kontynuował wypełnianie wierszy według zamieszczonego kodu.
Sub Makro3()

    Range("B9:B10").AutoFill Destination:=Range("B9:B17"), Type:=xlFillDefault
    Range("B19:B20").AutoFill Destination:=Range("B19:B27"), Type:=xlFillDefault
    Range("B29:B30").AutoFill Destination:=Range("B29:B37"), Type:=xlFillDefault

' i tak az do wiersza 1300
End Sub



//Jamanow


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z
Zarejestrowanych użytkowników: 6379 free counters
© A. Szarek 2003-2024
Warning: Unknown: write failed: Disk quota exceeded (122) in Unknown on line 0 Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct (/tmp) in Unknown on line 0