Hirdetés
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
Boolash
aktív tag
Sziasztok!
Fontos lenne!
Ezzel mi lehet a hiba?Sub elso()
Dim i, j As Integer
For i = 1 To 65536
For j = 1 To 1000
If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
Else
Munka1.Cells(i, j).Interior.ColorIndex = 27
End If
Next j, i
End SubEz a sor nem jó: If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
merthogy application/object defined error....
De miért?
Hogy kellene?Egyébként azt csinálja, hogy 2 munkalapot összehasonlít, és ahol különbözik a kettő, azt sárgával megjelöli.
Köszi!
Új hozzászólás Aktív témák
Aktív témák
Új fizetett hirdetések
- Bomba ár! HP ProBook 440 G5 - i5-7GEN I 8GB I 500GB I HDMI I 14" HD I Cam I W11 I Garancia!
- Bomba ár! HP ProBook 430 G1 - i3-4GEN I 4GB I 500GB I HDMI I 13,3" HD I Cam I W10 I Garancia!
- Bomba ár! HP EliteBook 8440P - i5-540M I 4GB I 250GB I DVDRW I 14" HD I Cam I Garancia!
- Eladó Cambridge Audio Azur 851N hálózati lejátszó/DAC/előerősítő
- Bomba ár! HP Elitebook 850 G3 - i5-6GEN I 8GB I 256GB SSD I 15,6" FULL HD I Cam I W10 I Gari!
Üzleti előfizetők hirdetései
- Samsung Galaxy A56 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Lenovo Thinkpad P1 Gen 6 - i9-13980HX, 32GB, 2TB SSD, 16" WQUXGA (3840 2400), RTX 4090
- BESZÁMÍTÁS! Lenovo Legion Slim 5 16APH8 Gamer notebook - R7 7840HS 32GB DDR5 1TB SSD RTX 4070 8GB
- LG 39GS95UE - 39" Ívelt OLED / QHD 2K / 240Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- Samsung Galaxy S24 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs


