Ondrej_P
19.03.15,11:19
Zdravim potreboval by som VB kod ktory by porovnal hodnoty v stlpci "A" s hodnotami v stplci "B" a pokial by sa nachadzala v stlpci "B" hodnata ktora nieje v stlpci "A" tak sa skopiruje do stlpca "A".
Vopred Dakujem
Vopred Dakujem
E-xcel.expert
24.03.15,14:08
V prilohe subor, kde som aplikoval Vase zadanie. A teda kod porovnava Stplec A a B a v pripade ak sa nerovnaju, tak A=B.
Kod je tu:
Sub porovnanie()
Dim lLastRow As Long
Dim i As Long
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lLastRow - 1
If Cells(i + 1, 1) = Cells(i + 1, 2) Then
Cells(i + 1, 4) = "ok"
Else
Cells(i + 1, 4) = "zmenene"
Cells(i + 1, 1) = Cells(i + 1, 2)
End If
Next i
Cells(1, 1).Activate
End Sub
Kod je tu:
Sub porovnanie()
Dim lLastRow As Long
Dim i As Long
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lLastRow - 1
If Cells(i + 1, 1) = Cells(i + 1, 2) Then
Cells(i + 1, 4) = "ok"
Else
Cells(i + 1, 4) = "zmenene"
Cells(i + 1, 1) = Cells(i + 1, 2)
End If
Next i
Cells(1, 1).Activate
End Sub
excel.sk
29.05.15,10:04
Dobrý deň,
skúste toto (aj v prilohe):
Sub Z_Becka_Do_Acka_Jedinecne()
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:A").Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
Range("A1").Select
End Sub
.
skúste toto (aj v prilohe):
Sub Z_Becka_Do_Acka_Jedinecne()
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:A").Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
Range("A1").Select
End Sub
.