Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: help makro w excelu - jak to zrobic ???
Totom




Typ: neutral
Postów: 2
Zarejestrowany: Jun 2004
help makro w excelu - jak to zrobic ???

jak zrobic zeby to makro chodzilo w pętli w zakresie A1:A200 ???

Sub zatwierdz()
'
' zatwierdz Makro
' zmiana ilości
'

'
    Dim WartPocz, WartDod, WartKonc, Wartost As Double
        If IsNumeric(Range("G4".Value) = True Then
          WartPocz = CDbl(Range("F4".Value)
          WartDod = CDbl(Range("G4".Value)
          Wartost = CDbl(Range("H4".Value)
          WartKonc = WartPocz + WartDod
          Range("F4".Value = WartKonc
          Range("H4".Value = WartDod
            Else
      MsgBox "Błędne dane"
      End If
End Sub


_____________________________________________
Totom

27-06-2004 12:18
Pokaż profil Totom  Wyślij email do Totom        2369556
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Zamień Range("F4" na Cells(w, k), gdzie w odpowiada nr wiersza, a k odpowiada numerowi kolumny i puść to w pętli, np.:

Sub zatwierdz()
'ABCDEFGHIJ K
'1234567891011
Dim WartPocz, WartDod, WartKonc, Wartost As Double
If IsNumeric(Cells(4,7) Then
    For w = 1 to 200
        WartPocz = CDbl(Cells(w,6))
        WartDod = CDbl(Cells(w,7))
        Wartost = CDbl(Cells(w,8))
        WartKonc = WartPocz + WartDod
        Cells(w,6).Value = WartKonc
        Cells(w,8).Value = WartDod
    Next w
Else
      MsgBox "Błędne dane"
End If
Next i
End Sub

[Post edytowany dnia 27-06-2004 19:55 przez losmac]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

27-06-2004 19:53
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Totom




Typ: neutral
Postów: 2
Zarejestrowany: Jun 2004
dzieki za pomoc ale jeszcze maly problem :)

nie zadzialalo od pierwszego razu wiec zmienilem
For w = 1 to 200  na For w = 6 to 200

i zadzialalo ale problem w tym ze dziala tylko jak uruchamiam z arkusza w ktorym ma przeliczac
przenioslem do arkusza "BAZA"  z dopiskiem na gorze Sheets("BAZA".Select  i juz nie dziala :/
pokazuje komunikat "run-time error line13"
type mismatch

dlaczego ???


_____________________________________________
Totom

28-06-2004 00:38
Pokaż profil Totom  Wyślij email do Totom        2369556
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

If IsNumeric(Sheets("BAZA".Cells(4,7) Then
For w = 1 to 200
        WartPocz = CDbl(Sheets( "BAZA" ).Cell(w,6)) 
        WartDod = CDbl(Sheets( "BAZA" ).Cells(w,7))
.....
spróbuj tak wpisać


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

28-06-2004 09:34
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1