karşılığındaki değer

[acar6783]

Kolaygelsin arkaşadaşlar,

a sütunundaki verinin karşısına gelen değerleri nasıl sayfa 2ye getiebiliriz..

yani a sütununda ali isimli satırı bulup karşıpına gelen b c d e f g sütunlardaki verileri sırasıyla sayfa 2 nin a sütununa getirecek bir kod nasıl yazılır ?

Adım adım acıklanabilirse anlama için...

 

[Murat OSMA]

Deneyin;

sub bul()
dim i as integer, bul as range
for i = 2 to range("a65536").end(3).row
set bul = columns(1).find("ali",,,1)
if not bul is nothing and cells(i,1) <> "" then
cells(bul.row,1).resize(,7).copy sayfa2.range("a65536").end(3)(2,1)
end if
next i
i = empty: set bul=nothing
end sub

 

[acar6783]

Kod hiçbir işlem yapmıyor !

 

[Murat OSMA]

A sütununda ali yazmıyordu.

 

[Merhum İdris SERDAR]

.

Kullanacağınız fonksiyon burada açıklanmıştır.

http://www.excel.web.tr/f60/vlookup-d-eyara-uygulamasi-t17226.html


.

 

[acar6783]

A sütununda ali yazmıyordu.

kodu yeni inceledim ..
burda ali içeren veriyi arıyoruz fakat

A sütununda sürekli veri değişik olacak haliyle bu sebepten farklı bir kod bulmam gerekiyor sanırım

 

[Merhum İdris SERDAR]

Kolaygelsin arkaşadaşlar,

a sütunundaki verinin karşısına gelen değerleri nasıl sayfa 2ye getiebiliriz..

yani a sütununda ali isimli satırı bulup karşıpına gelen b c d e f g sütunlardaki verileri sırasıyla sayfa 2 nin a sütununa getirecek bir kod nasıl yazılır ?

Adım adım acıklanabilirse anlama için...

.

Verdiğim linki inceleyip, incelemediğinizi bilmiyorum. Çünkü bu konuda bir şey söylemediniz. Geri dönüş yapmama konusu ayrı bir olay. Neyse...

En iyisi, siz bir zahmet buyurup, bir dosya eklerseniz, daha çabuk çözüm alırsınız.


.

 

[acar6783]

Sn yurttaş verilen linki tüm formüllerin içeriklere dahi bakarak incelemiştim. Formül olarak düşeyara bilgim az da olsa var idi ve vermiş olduğunuz linkteki dosyalarıda inceledikten sonra bu işin farklı formullercede yapılabildiğini öğrendim .
Fakat ben şu an geliştirmekte olduğum makro bilgimi arttırma amacı ile bu şekilde bir kod yardımı istedim .
Eğer ki adım adım acıklanırsa kod üzerinde bende calısabiliyeim istedim
örnek teşkil etmesi amacı ile bir dosya ekliyorum.
Forumda ve nette düşeyara ile ilgili makro kod pek bulunamıyor..

 

[acar6783]

Konumuza en azında fikir verecek bir cevap bulamayacakmıyım acaba ?

 

[acar6783]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim S1 As Worksheet, S2 As Worksheet, Veri As Variant
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    On Error Resume Next
    
    For X = 1 To S1.Cells(Rows.Count, 1).End(xlUp).Row
        Err.Clear
        If S1.Cells(X, 1) <> "" Then
            Veri = Application.WorksheetFunction. _
            VLookup(S1.Cells(X, 1), S2.Range("A:E"), 2, 0)

                If Err.Number = 0 Then
                    S1.Cells(X, 2) = Veri
                Else
                    S1.Cells(X, 2) = ""
                End If
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    
End Sub

bu şekilde bir kod bulup uyarladım fakat sadece b sütununa getirebiliyorum verileri diğer sütunlara getiremiyorum..