Veri Karşılaştırması Hakkında

[drummers]

Beyanname Kontrol isimli sekmeme bul ve listele diye bi makro ekledim ve istediğim klasördeki dosyaları listeliyorum

diğer bi makro ile data sekmemden listeyi alıyorum

benim istediğim
1- "Beyannem Kontrol" sekmemdeki A sütünu ile B sütununu karşılaştırması isimler tutuyor ise "verildi" tutmuyor ise "verilmedi" yazması

2- klasör listelemesi yaptığında listelediği isimlerin uzantılarını yazmaması

siteden tırtıkladığım makro kodları için kimlerin hakları geçti ise helal etsinler baya işime yarıyorlar

şimdiden teşekkürler


not: birçok soru sordum ve cevabını mutlaka aldım sanırım bazılarına teşekkür edemedim....unuttum

teşekkürler

 

[drummers]

yardım rica edebilirmiyim

 

[Ömer]

Merhaba,

1. sorunuzda değerleri karşılaştırken sütun bazındamı arayarak verildi yada verilmedi yazacak yoksa satır bazında tam eşleşen değerlere mi bakacak.

2.Sorunuz için kodu aşağıdaki gibi değiştirerek deneyin.

Sub Klasor_İcerik_Listele()
Dim Laufwerk$, Dateien$
z = 2
[a1:e5000] = ""
Laufwerk = GetDirectory("Listelenecek Klasör Seçiniz")
If Laufwerk = "" Then Exit Sub
Dateien = InputBox("aranacak uzantıyı yaz" & _
    Chr(10) & " " & Laufwerk & Chr(10) & _
    "örn:(*.xls  *.pdf)", _
    "Klasör Lİsteleme", "*.")
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
[COLOR=red]For i = 2 To [A65536].End(3).Row[/COLOR]
[COLOR=red]Cells(i, "a") = Split(Cells(i, "a"), Right(Dateien, Len(Dateien) - 1))(0)[/COLOR]
[COLOR=red]Next i[/COLOR]
End Sub

.

 

[drummers]

Merhaba,

1. sorunuzda değerleri karşılaştırken sütun bazındamı arayarak verildi yada verilmedi yazacak yoksa satır bazında tam eşleşen değerlere mi bakacak.

satır bazında bakacak

ilk 3 kelime olabilir mesela
örn:
A SÜTÜNU :AHMET VEYSEL KEL
B SÜTÜNU : AHMET VEYSEL


böyle bakasın ve verilmiş yazsın


teşekkürler

 

[Ömer]

Bu şekilde deneyin.

Sub Deneme()
Dim i As Long
Application.ScreenUpdating = False
Range("C2:C65536").ClearContents
For i = 2 To [B65536].End(3).Row
    If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "b")) > 0 Then
        Cells(i, "c") = "Verildi"
    Else
        Cells(i, "c") = "Verilmedi"
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[kratos06]

slm
a sutundaki verilerde aynı olanlardan kaçar tane var bunlarıda b c d e stunlarına yazsın

 

[kratos06]

hala soruma cevap alamadım yardımcı olursanız teşk.