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

• #10892 Baboka tag Delila_1 #10890

  Új Válasz 2011-07-19 14:35:07 #10892

  Ú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

  

  Baboka

  tag

  válasz Delila_1 #10890 üzenetére

  Köszönöm szépen nektek, az volt a baj hogy string volt, ezer hála és további szép napot!

• #10889 Baboka tag Delila_1 #10888

  Új Válasz 2011-07-19 14:21:13 #10889

  Ú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

  

  Baboka

  tag

  válasz Delila_1 #10888 üzenetére

  If (Sheets(2).Cells(i, eo).Value <> "") Then <------ ez az a sor ahol meghal, betettem watch-ot mindenhova és kapnak értéket azt a számot amit beírok de az lehet hogy string formátum?

• #10885 Baboka tag Delila_1 #10884

  Új Válasz 2011-07-19 12:26:38 #10885

  Ú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

  

  Baboka

  tag

  válasz Delila_1 #10884 üzenetére

  Bővítményekkel sem jó sajna, berakom az egész makrót, nem egy nagy cucc hátha így tudsz segíteni:

  Sub gomb()
  Dim mo1, mo2, mo3, eo, ssz, osz, fk, i, j, k As Integer
  
  
  mo1 = frmmasol.tbmo1.Text
  mo2 = frmmasol.tbmo2.Text
  mo3 = frmmasol.tbmo3.Text
  eo = frmmasol.tbeo.Text
  ssz = frmmasol.tbssz.Text
  osz = frmmasol.tbosz.Text
  fk = frmmasol.tbfk.Text
  
  Sheets(1).Select
  Range("A1").Select
  
  
  If frmmasol.cbtabla.Value = False Then
  Windows("1.xls").Activate
  Sheets(1).Select
  Cells.Select
  Application.CutCopyMode = False
  Selection.Copy
  Windows("Masolo.xls").Activate
  Sheets(1).Select
  Cells.Select
  ActiveSheet.Paste
  End If
  
  Windows("2.xls").Activate
  Sheets(1).Select
  Cells.Select
  Application.CutCopyMode = False
  Selection.Copy
  Windows("Masolo.xls").Activate
  Sheets(2).Select
  Cells.Select
  ActiveSheet.Paste
  
  Sheets(1).Select
  Range("A1").Select
  
  
  For i = fk + 1 To ssz
  If (Sheets(2).Cells(i, eo).Value <> "") Then
  For j = fk + 1 To ssz
  If (Sheets(1).Cells(j, mo1).Value = Sheets(2).Cells(i, mo1).Value) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then
  For k = 1 To osz
  Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
  Next k
  End If
  Next j
  End If
  Next i
  
  End Sub

• #10883 Baboka tag

  Új Válasz 2011-07-19 12:08:49 #10883

  Ú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

  

  Baboka

  tag

  sziasztok!

  Elkezdtem egy táblaösszemásoló makrót megírni, még kezdő vagyok nagyon, ezt kérem figyelembe venni, de az a problémám hogy mindig a jó kis runtime error 1004 jön ki a program ciklusainál

  For i = fk + 1 To ssz
  If (Sheets(2).Cells(i, eo).Value <> "") Then <-------- itt halódik meg az egész
  For j = fk + 1 To ssz
  If (Sheets(1).Cells(j, mo1).Value = Sheets(2).Cells(i, mo1).Value) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then
  For k = 1 To osz
  Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
  Next k
  End If
  Next j
  End If
  Next i

  fk: táblafejléc kezdete
  eo: ellenőrző oszlop, ha üres akkor meg sem kell vizsgálni
  mo1,2,3: adatoszlopok száma, amiket meg kell vizsgálnia

  ha tudtok segíteni akkor előre is köszönöm!

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