Új hozzászólás Aktív témák

• #1780 martonx veterán shiz #1775

  Új Válasz 2012-07-06 16:40:33 #1780

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz shiz #1775 üzenetére

  Sub Count()
  Dim var As Variant
  For i = 9 To 1500 Step 13
  var = Application.Match(1, Rows(i).Cells, 0)
  If Not IsError(var) Then
  'ilyenkor az i mutatja, hogy melyik sorban találtunk, var mutatja, hogy melyik oszlopban
  'azaz e két info ismeretében bármit meg tudsz csinálni
  MsgBox ("találtam")
  End If
  Next
  End Sub

• #1776 martonx veterán shiz #1775

  Új Válasz 2012-07-03 17:19:52 #1776

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz shiz #1775 üzenetére

  feltennél valahova egy példa excelt, pár sorral? Ez annyira ujj gyakorlat, hogy megírnám a makrót hozzá 1-2 perc alatt (hogy mikor lesz erre 1-2 percem, az más kérdés). Így meg csak itt tanácstalankodunk.

• #1774 martonx veterán shiz #1773

  Új Válasz 2012-07-03 09:57:23 #1774

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz shiz #1773 üzenetére

  node minek ide with egyáltalán?

  Ez is feleslegesenek tűnik:

  Dim ml As Worksheet
  Set ml = Worksheets("Munka1")

  Ez egyértelműen zárójel hibás:

  Set erdmeny = keszlet - felhet / 2) Debugolás a barátod

  Ez így működésképtelen. Ismétlem, minek ide with?

  With eredmeny
  If eredmeny > 0 Then
  .Range("BK" & sor).Value = 0
  Else
  .Range("BK" & sor).Value = eredmeny
  End If
  End With

  Ehelyett simán csak valami ilyesmi kellene neked:
  If eredmeny > 0 Then
  Range("BK" & sor).Value = 0
  Else
  Range("BK" & sor).Value = eredmeny
  End If

Új hozzászólás Aktív témák