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

• #12801 plaschil aktív tag Delila_1 #12800

  Új Válasz 2012-02-04 10:21:29 #12801

  Ú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

  

  plaschil

  aktív tag

  válasz Delila_1 #12800 üzenetére

  Köszönöm szépen, éjjel 1-ig szórakoztam vele mire megtudtam hogy a "left"-et kell használni ha kezdődést akarok vizsgálni.

  Viszont ez az if hibás, vagy nekem nem működik, én is így írtam először:

  If Cells(i, 4) = "5415" Or "5415B" Then

  Nekem ez csak úgy működött hogy:

  If Cells(i, 4) = "5415" Or Cells(i, 4) = "5415B" Then

  Most már változott az egész ciklus, úgyhogy így néz ki:

  For i = 1 To SorokSzama
  If Cells(i, 5) = "72" Then
  If (Cells(i, 4) = "5415" Or Cells(i, 4) = "5255" Or Cells(i, 4) = "211B" Or Cells(i, 4) = "5345" Or Cells(i, 4) = "5195") Then
  If Left(Cells(i, 2), 5) = "0.603" Then
  ' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
  End If
  If Left(Cells(i, 2), 5) = "0.615" Then
  ' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
  End If
  If Left(Cells(i, 2), 7) = "1.600.a" Then
  ' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorből kéne néhány oszlopot átteni egy másik fájl végére.
  End If
  If Left(Cells(i, 2), 7) = "1.600.z" Then
  ' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
  End If
  End If
  End If
  Next

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