• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

question-closed Dynamiczna iteracja po nr rzędu

Aruba Cloud PRO i VPS, Openstack, VMWare, MS Hyper-V
0 głosów
34 wizyt
pytanie zadane 19 września w Visual Basic przez magda_19 Gaduła (3,080 p.)
zamknięte 19 września przez magda_19

Cześć, piszę kod, który ma czytać zawartość tabelki (dla przykładu - wypełnionych 5 rzędów) i wkleić treść od komórki H5 w dół, w zależności od ilości wypełnionych wierszy.(zdjęcie dla przykładu)

Mój kod wygląda tak. Na razie generowanie tesktu rozpoczyna się z komórki H5.

Nie do końca wiem jak napisać aby generowanie rozpoczynało się od H5 i szło w dół tyle ile jest wierszy w tabeli. Dodatkowo, są odwołania na sztywno do 5. wiersza, a docelowo miałyby się zmieniać w zależności od rzędu

 Private Sub Generuj_Click()

Dim i As Integer

table = Range("E5", Range("F5").End(xlDown)).Rows.Count
Range("E5", Range("F5").End(xlDown)).Select

'Range("E5").Select

For i = 1 To table
    Range("H5").Select
    'Text = Range("H5", Range("H5").End(xlDown)).Rows.Count
    Range("H5") = "Inwestycja w spółkę " & Worksheets("Spolki").Range("E5") & " w kwocie przypadającej na PFR " & Worksheets("Dashboard").Range("C3") & " FIZ: " & Worksheets("Spolki").Range("F5") & " " & Worksheets("Dashboard").Range("C9")

Next i

Application.ScreenUpdating = True

End Sub

 

komentarz zamknięcia: rozwiązane

Podobne pytania

0 głosów
0 odpowiedzi 281 wizyt
+1 głos
2 odpowiedzi 75 wizyt
pytanie zadane 21 września w Visual Basic przez magda_19 Gaduła (3,080 p.)
0 głosów
1 odpowiedź 50 wizyt
pytanie zadane 20 września w Visual Basic przez magda_19 Gaduła (3,080 p.)

91,832 zapytań

140,508 odpowiedzi

317,004 komentarzy

61,163 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto dwie polecane książki warte uwagi. Pełną listę znajdziesz tutaj.

...