SET FİND ile bulunan hücreyi renklendirme nasıl yapılabilir

[netkit]

İyi akşamlar;

Bir makrom da şu şekilde bir satır var.
x değerini örneğin j65 de buluyor ve B3 e j67 değerini yazıyor fakar ben b3 e yazdığı satırın kaynağını renklendirmek istiyorum böylece yanlış satırımı bulduğunu test etmiş olacağım. Yani j67 yi sarıya boyaması için bu koda nasıl bir ilave etmem lazım?


Set A = Sheets(1).Range("H:K").Find(x , xlValues, xlWhole)
[B3] = A.Offset(0, 2)

 

[prmts]

Merhaba,

A.Offset(0, 2).Interior.Color = 65535

Denermisiniz.

 

[netkit]

Sayın prmts;
çok teşekkür ederim süper oldu.
elinize sağlık

 

[netkit]

Tekrar merhaba;

makro büyüdükçe kontrol arttıkça ihtiyaçlarda artıyor malesef.
Bu satırın dönüş değeri J93 ve j95
ben bu değeri B3 e direkt sayı olarak değil =j93+j95 olarak yazdırmak istiyorum tabi j93 ve j95 değişken set a da bulduğu row ve column u hücreye nasıl yazdırabilirim?

Set A = Sheets(1).Range("H:K").Find(x , xlValues, xlWhole)
[B3] = A.Offset(0, 2) + B.Offset(1,2)

 

[prmts]

Anlamakta biraz zorlandım tahmin yürüterek cevap veriyorum.

[B3] = a.Offset(0, 2) & "+" & B.Offset(1, 2)

set ettiginiz değer bir hücre direkt olarak row ve column alabilirsiniz.

[B3] = a.Row & "+" & a.Column

Yada A.Address olabilir.

 

[netkit]

Sayın prmts;

sizin kodlar Set a daki hücreyi veriyor offset ile rakamı buluyorum ama sizin kodlara offseti entegre edemedim.

ekteki dosyanın b3 satırına gelen 333.747.496 tl makro ile geldiğinden hücre üzerine gidince referansı görünmüyor. Normalde F2 yapıp hücre referansını almak istiyorum.

kod bölümüne şöyle açıklama yazdım belki referans olur.
[B3] = A.Offset(0, 2) ' BURAYA 333.747.496 TL Yİ OLUŞTURAN =J104 OLARAK B3 E YAZDIRMAK İSTİYORUM

 

[prmts]

Alttaki kodları anlatmaya çalışmıştım.

Set a = Sheets(1).Range("H:K").Find(KAR, , xlValues, xlWhole)
[B3] = a.Offset(0, 2)
Range("b3").AddComment
Range("b3").Comment.Visible = False
Range("b3").Comment.Text Text:="E.GÜR" & Chr(10) & a.Address

 

[netkit]

Sayın prmts;
malesef olmadı. açıklama dada referans hücresi gene a.adress deyince kolon numarası geliyor. benim istediğim b3 de =j104 yazması ve j104 deki 333xxx lü rakamın oraya gelmesi resimde referandaki gibi..
ilginize teşekkürler bayağı kod didikledim ama daha sonuç çıkmadı.

 

[netkit]

Sayın prmts;

şöyle bir şey yaptım sadece $j$104 şeklinde geliyor. $ ları kaldıramadım bir türlü.
Set a = Sheets(1).Range("H:K").Find(KAR, , xlValues, xlWhole)
x=a.offset(0,2).address
[B3] = "="+x

birden fala satır toplama veya çıkarmada
x=a.offset(0,2).address
y=b.offset(0,2).address
.....
....
[B3] = "="+ x & "+" + y şeklinde..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyin.

[B3].Formula = "=" & A.Offset(0, 2).Address

 

[netkit]

Merhaba Korhan Bey;
malesef $ lar da değişiklik olmadı.

 

[Korhan Ayhan]

Merhaba,

Dolar işareti sorunmu yaratıyor. Aşağıdaki gibi deneyin.

[B3].Formula = "=" & A.Offset(0, 2).Address(0, 0)

 

[netkit]

iyi akşamlar;
sürükleme yapınca hücrelerdeki değerler ilk çektiğim satırdan geliyor.
Ama bu kadarı bile benim için inanılmaz kolaylık..
Sahur vakti sizleride yordum sağolun.

 

[netkit]

Korhan Bey;

sizin 2 (12 nolu mesaj) inci mesajınızı ben soru manasında anladım. meğer o gönderdiğiniz kod çalışıyormuş.
Çok teşekkür ederim.



-----------------------------------------

şöyle uzunca ama geçici bir çözüm buldum. biraz uzadı süresi ama olsun

Range("b3").Select
Cells.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False