Sayfaları karşılaştır değerleri yaz

[omeryılmaz]

Merhaba Arkadaşlar...

Kurumumuzda mevcut iki ayrı sayfada kayıtlı demirbaş kayıtlarından İsim ve Fiyatları aynı ise MKYS_MEVCUT sayfasındaki E sütunundaki sicil noların LİSTEDEKİLER sayfasında F sütununda birebir karşılığına yazılmasını tam olarak başaramadım..

Şimdiden yardım ve önerileriniz için şükranlarımı sunuyorum...

 

[excelci1]

LİSTEDEKİLER!F2 hücresine yazın

=İNDİS(MKYS_MEVCUT!$E$2:$E$541;KAÇINCI(G2;MKYS_MEVCUT!$F$2:$F$541;0))

aşağıya doğru kopyalayın

 

[omeryılmaz]

Merhaba Arkadaşlar...

Kurumumuzda mevcut iki ayrı sayfada kayıtlı demirbaş kayıtlarından İsim ve Fiyatları aynı ise MKYS_MEVCUT sayfasındaki E sütunundaki sicil noların LİSTEDEKİLER sayfasında F sütununda birebir karşılığına yazılmasını tam olarak başaramadım..

Şimdiden yardım ve önerileriniz için şükranlarımı sunuyorum...

Çözüldü:

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i, x As Integer
Dim Rapor As String
CommandButton1.Caption = "LÜTFEN BEKLEYİNİZ..!!"
Worksheets("LİSTEDEKİLER").Range("F2:F65536").ClearContents
Worksheets("LİSTEDEKİLER").Range("A2:H65536").Interior.ColorIndex = xlNone
Worksheets("MKYS_MEVCUT").Range("A2:H65536").Interior.ColorIndex = xlNone
For i = 2 To WorksheetFunction.CountA(Sheets("MKYS_MEVCUT").Range("F2:F65536"))
For x = 2 To WorksheetFunction.CountA(Sheets("LİSTEDEKİLER").Range("G2:G65536"))
If Sheets("MKYS_MEVCUT").Cells(i, 6) = Sheets("LİSTEDEKİLER").Cells(x, 7) And Sheets("MKYS_MEVCUT").Cells(i, 3) = Sheets("LİSTEDEKİLER").Cells(x, 3) Then
Sheets("MKYS_MEVCUT").Cells(i, 6).Interior.ColorIndex = 6
Sheets("LİSTEDEKİLER").Cells(x, 7).Interior.ColorIndex = 6
Sheets("LİSTEDEKİLER").Cells(x, 6).Value = Sheets("MKYS_MEVCUT").Cells(i, 5).Value
Rapor = Cells(i, 6).Address & ":" & Cells(i, 6) & " ile " & _
Cells(x, 7).Address & ":" & Cells(x, 7) & " Aynıdır" & vbNewLine & Rapor
End If
Next x: Next i
CommandButton1.Caption = "TAMAM..!!"
MsgBox Rapor

MsgBox "Bitti", vbInformation + vbDefaultButton1 + vbOKOnly, "UYARI"
CommandButton1.Caption = "FİAT VE İSME GÖRE SORGULA LİSTEDEKİLERE BU SAYFADAKİ SİCİLİ AKTAR"
End Sub