Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[exel/VBA] Przypisywanie wartości do zmiennej

spewak 28 Lip 2010 14:21 6230 1
  • #1 28 Lip 2010 14:21
    spewak
    Poziom 8  

    Witam mam problem z fragmentem kodu:

    Code:

    Dim WierszPoczZakr As Integer
     Dim KolumnaPoczZakr As Integer
        Dim WierszKonZakr As Integer
        Dim KolumnaKonZakr As Integer
        Dim WierszNazwy As Integer
        Dim Numer As Long
       
       
        WierszPoczZakr = 3
        KolumnaPoczZakr = 1
        WierszKonZakr = 3
        KolumnaKonZakr = 2
        WierszNazwy = 3
        KolumnaKonZakr = 3
        Numer = Dane.Cells(7, 5).Value
     

       
    Do While Dane.Cells(WierszPoczZakr, KolumnaPoczZakr).Value < Numer And Dane.Cells(WierszKonZakr, KolumnaKonZakr).Value < Numer

    WierszPoczZakr = WierszPoczZakr + 1
    WierszKonZakr = WierszKonZakr + 1
    WierszNazwy = WierszNazwy + 1
    Loop
    Dane.Range("G6").Value = Dane.Cells(WierszNazwy, KolumnaNazwy).Value


    Niestety to nie działa pojawia się Object required. Z tego co się zorientowałem to makro nie widzi wartości w komórkach. Co robie źle??

    0 1
  • #2 28 Lip 2010 18:15
    adamas_nt
    Moderator Programowanie

    Code:
    Dane.Cells(7, 5).Value
    Jeżeli "Dane" jest nazwą arkusza to
    Code:
    Sheets("Dane").Cells(7, 5).Value
    (w przedstawionym fragmencie 4 wystąpienia).

    1