Benzer kayıtlar

[met07]

Arkadaşlar a1 ile b1 den başlayan numaralar var 47.000 satır. A sütunu ile B sütunu aynı olması gerekirken aralardan bazı numaralar silinmiş.
Bunları tesbit etmek için C sütununa A ve B sütunlarında aynı olanları, D sütununa farklı olanları nasıl atabiliriz?

 

[quinen]

Dim i As Integer

For i = 1 To 4700

If ThisWorkbook.Worksheets("Sayfa1").Range("A" & i) = ThisWorkbook.Worksheets("Sayfa1").Range("B" & i) Then

ThisWorkbook.Worksheets("Sayfa1").Range("C" & i) = ThisWorkbook.Worksheets("Sayfa1").Range("A" & i)

Else

ThisWorkbook.Worksheets("Sayfa1").Range("D" & i) = ThisWorkbook.Worksheets("Sayfa1").Range("B" & i)

End If

Next i

Bu kod işine yarar sanırım. Ekrana bir buton koyup Click Event ine olduğu gibi bu kodu yazabilirsin.

Kolay Gelsin. :hey:

 

[met07]

ilginize teşekkür ederim.

Ekrana bir buton koyup Click Event ine olduğu gibi bu kodu yazabilirsin.

ama bu konuda bilgim yok açıklayabilirmisin? :hey:

 

[quinen]

Ekrana bir buton yani düğme ekleyip tasarım anında çift tıkladığın zaman seni kod sayfasına gönderecektir. İşte burası butonun click event idir
Kusura bakmayın bazen yazarken kendimi kaptırıyorum ve söylediklerim biraz karışık geliyor.

Eğer yine de olmazsa ufak bir örnek gönderebilirim.

 

[met07]

sayın guinen; A ve B sütununda birbirine eşit olanları C sütununa atacak. (aynı satırda olmaları gerekmiyor) eşit olmayanları D sütununa atacak.

 

[quinen]

Dim i, iSayac, iSayac2 As Integer

iSayac = 1
iSayac2 = 1

For i = 1 To 4700

If ThisWorkbook.Worksheets("Sayfa1").Range("A" & i) = ThisWorkbook.Worksheets("Sayfa1").Range("B" & i) Then

ThisWorkbook.Worksheets("Sayfa1").Range("C" & iSayac) = ThisWorkbook.Worksheets("Sayfa1").Range("A" & i)
iSayac = iSayac + 1

Else

ThisWorkbook.Worksheets("Sayfa1").Range("D" & iSayac2) = ThisWorkbook.Worksheets("Sayfa1").Range("B" & i)
iSayac2 = iSayac2 + 1

End If

Next i

Bir de bunu deneyiniz.

 

[met07]

teşekkürler ellerine sağlık :hey:

 

[quinen]

Ã?nemli değil. İşine yaradıysa ne mutlu bana.

İyi çalışmalar. :hey:

 

[met07]

sayın guinen eşitlik aynı satırda olmazsa yine eşit değil olarak sıraladı. bir örnek gönderiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:8cff7a6072]Sub bul()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(2), Cells(a, 1).Value) > 0 Then
c = c + 1
Cells(c + 1, 3) = Cells(a, 1).Value
GoTo 10
End If
d = d + 1
Cells(d + 1, 4) = Cells(a, 1).Value
10 Next
End Sub[/vb:1:8cff7a6072]

 

[met07]

sayın leventm B sütunundaki eşi olmayan rakamları D sütununa getirmiyor. ekleyebilirmiyiz. :hey:

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:49b547fa7c]Sub bul()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 2).Value) = 0 Then
e = WorksheetFunction.CountA([d2:d65536]) + 1
Cells(e + 1, 4) = Cells(a, 2).Value
End If
If WorksheetFunction.CountIf(Columns(2), Cells(a, 1).Value) > 0 Then
c = c + 1
Cells(c + 1, 3) = Cells(a, 1).Value
GoTo 10
End If
d = WorksheetFunction.CountA([d2:d65536]) + 1
Cells(d + 1, 4) = Cells(a, 1).Value
10 Next
End Sub
[/vb:1:49b547fa7c]

 

[met07]

ellerin dert görmesin iyi çalışmalar