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

• #1571 Baboka tag Homer #1570

  Új Válasz 2011-12-27 12:25:39 #1571

  Ú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 Homer #1570 üzenetére

  Sajnos a legutóbbi lesz, megpróbálom akkor ezt a megoldást, ezer köszönet

• #1569 Baboka tag Homer #1562

  Új Válasz 2011-12-27 10:22:22 #1569

  Ú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 Homer #1562 üzenetére

  Köszönöm ez egyelőre jó. Az előző formátumnál arra gondoltam hogy ez a színezés ez egy előre formázott táblázatban lesz, nagyon sok oszlopa van azért kell ez hogy az egész sort átszínezi ha rajta állok és ha más sorba kerül az aktív cella akkor, az előző sornak a formátumát állítsa vissza. Nem tudom mennyire írom érthetően, még eléggé amatőr vagyok VBA-ból

• #1561 Baboka tag

  Új Válasz 2011-12-23 11:53:15 #1561

  Ú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!

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub
  If Selection.Cells.Count > 1 Then Exit Sub
  If Target <> "" Then
  Rows(Target.Row).Interior.ColorIndex = 10
  Else
  Rows(Target.Row).Interior.ColorIndex = xlNone
  End If
  End Sub

  ezt a programot szeretném úgy átalakítani hogy ha kijelölök egy cellát akkor az egész sort beszinezze, de ha másik cellát jelölök ki akkor az előző sor visszaálljon az előző állapotába.

• #1402 Baboka tag martonx #1401

  Új Válasz 2011-07-19 14:50:25 #1402

  Ú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 martonx #1401 üzenetére

  igen közben már beszoroztam mindegyiket eggyel és ennyi volt azért köszönöm szépen

• #1400 Baboka tag ArchElf #1399

  Új Válasz 2011-07-19 12:09:44 #1400

  Ú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 ArchElf #1399 üzenetére

  köszi azért a fáradságod, megpróbálom ott is.

• #1398 Baboka tag ArchElf #1397

  Új Válasz 2011-07-19 11:43:49 #1398

  Ú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 ArchElf #1397 üzenetére

  sajna value-vel sem megy ugyan azt dobja ki, kérdezz meg bármit válaszolok mindenre csak már nem ez az első makró aminél ezt a hibát kapom

  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

• #1396 Baboka tag

  Új Válasz 2011-07-19 11:14:22 #1396

  Ú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) <> "") Then <----------------itt áll le
  For j = fk + 1 To ssz
  If (Sheets(1).Cells(j, mo1) = Sheets(2).Cells(i, mo1)) 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