VBA Ile birlestirme ve karsilastirma Islemi

[mustafaine1]

Baslik ne derece dogru oldu bilemiyorum ama basit olduguna inandigim basit bir vba ornegine ihtiyacim var.

Verdigim excel dosyasinda sheet2 de sirketler var ve satir numaralari halinde referanslar var. ilk sayfada referans yazildiginda b5 satirina MESSRS: ''sirket adi" gibi yazmasini istiyorum.

 

[Orion1]

VBA'ya gerek yok.
Tam formüllük bu.
dosya ekte.

="MESSRS "&DÜŞEYARA(C3;Sheet2!B3:C65536;2;0)

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
[c5] = "MESSRS:" & Application.WorksheetFunction.VLookup([c3], Sheets("Sheet2").Range("b3:c7"), 2, 0)
End Sub

 

[mustafaine1]

tesekkurler uzmanamele vba istedigim icin bu basliga yazmistim elinize saglik

 

[uzmanamele]

merhaba

kodu aşağıdaki şekilde değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo dip
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
[c5] = "MESSRS:" & Application.WorksheetFunction.VLookup([c3], Sheets("Sheet2").Range("b3:c7"), 2, 0)
Exit Sub
dip:
MsgBox "hatalı giriş yaptınız!", vbInformation, "hop dedik!"
End Sub

 

[Orion1]

tesekkurler uzmanamele vba istedigim icin bu basliga yazmistim elinize saglik

Bize teşekkür yokmu.!!
Bizde zahmete girip iyi kötü bir cevap verdik.

 

[mustafaine1]

Estagfurullah Evren Bey Ilginize minnettarim cok tesekkur ederim..

Ayrica konuya ek bir sorum olucak

Application.WorksheetFunction.VLookup([c3], Sheets("Sheet2").Range("b3:c7"), 2, 0)

kodun bu kismini kalin (bold) nasil ayarlayabilirim..

 

[mustafaine1]

[c5].Font.Bold = True
[c5].Characters(Start:=1, Length:=8).Font.FontStyle = Bold

seklinde sorunumu cozdum arkadaslar tesekkurler, yalniz ogrenmek istedigim birsey daha var eger birlestirdigimiz hucre tarih olsaydi nasil olucakti..

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo dip
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
[c5] = "MESSRS:" & Application.WorksheetFunction.VLookup([c3], Sheets("Sheet2").Range("[COLOR="red"]b3:d7[/COLOR]"), [COLOR="red"]2[/COLOR], 0)
[d5] = Format(Application.WorksheetFunction.VLookup([c3], Sheets("Sheet2").Range("[COLOR="Red"]b3:d7[/COLOR]"), [COLOR="red"]3[/COLOR], 0), "dd.mm.yyyy")
Exit Sub
dip:
MsgBox "hatalı giriş yaptınız!", vbInformation, "hop dedik!"
End Sub

not:
2.sayfada D sütununa tarih yazarak deneyiniz.

 

[mustafaine1]

uzmanamele cok tesekkur ederim, suan dosyami olusturuyorum; ugrastirdim biliyorum ama gercekten bugun inanilmaz faydaniz dokundu ve isime cok yarayacak seyler ogrenmis oldum..