hücreye veriyi yazdırma

[durhan]

Arkadaşlar ekli dosyayı inceleyebilirmisiniz? problem basit gibi gözüküyor ancak çözemedim. Herkese şimdiden teşekkürler

 

[ozgretmen]

Dosyaya bakar mısın ?
Sayfa1 in kod bölümüne aşağıdaki kod eklendi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [F3:F8]) Is Nothing Then Exit Sub
k = ActiveCell.Row
m = ActiveCell.Column
Sheets("Sayfa2").Cells(3, "C") = Sheets("Sayfa1").Cells(k, m)
Sheets("Sayfa2").Activate
End Sub

 

[durhan]

Sayın Ozgretmen, emeğinize ve ilginize çok teşekkürler,

 

[yusufbayram]

e güzel hemde çoook

 

[ozgretmen]

Sayın Ozgretmen, emeğinize ve ilginize çok teşekkürler,

e güzel hemde çoook

Rica ederim.İyi çalışmalar arkadaşlar.

 

[durhan]

Rica ederim.İyi çalışmalar arkadaşlar.

Sayın ozgretmen; kodları kendi dosyama uyguladım ancak ekteki dosyada bulunan hatayı verdi bu neden olabilir buna bi fikir verebilirmisiniz?

 

[ozgretmen]

Dosyanızı ekler misiniz ?

 

[durhan]

Arkadaşlar eklemek istediğim dosyayı foruma eklerken Upload of file failed diye bir uyarı veriyor, başka bir dosya eklediğimde sorunsuz ekliyor, bunun sebebi ne olabilir

 

[ozgretmen]

Boyut sınırı geçmiş olabilir ...

 

[durhan]

Sayın ozgretmen;

dosya boyutu büyükmüş, winrar yaptığımda aldı, dosyayı ekledim, bakabilir misiniz?

 

[ozgretmen]

"Yapmak istediğim şey; R sutununda veri varsa ve ben buna tıkladığımda beni O-1 TAKİP sayfasına ve burada D1 veya K2 sutununa yazmasını istiyorum."
D1 veya K2 sütununa yazılmasını istediğiniz nedir ?

 

[durhan]

Sayın ozgretmen; R4 hücresinden R250 hücresine kadar olan hücrelerde ne varsa (ne görünüyorsa) onu örneğin R4'e bastığımda O-1 TAKİP sayfasına gitmesini ve K2 hücresine R4 hücresinde görüneni yazmasını istiyorum. Ekli dosyamda örneğin R4 hücresinde "YAZI YAZILDI yazısına bastığımda O-1 TAKİP sayfasında K2 hücresine yazmasını, yani R4:R250 hücresindeki veriler değişkendir, bu verileri D sutunundan almaktadır. (yani D sutunundaki hücrelerde her sorgulamada değişmektedir)

 

[ozgretmen]

Aşğıdaki şekilde dener misin ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [R4:R250]) Is Nothing Then Exit Sub
k = ActiveCell.Row
m = ActiveCell.Column
Sheets("O-1 TAKİP").Cells(2, "K") = Sheets("SORGULAMA").Cells(k, m)
Sheets("O-1 TAKİP").Activate
End Sub

 

[durhan]

Sayın ozgretmen; verdiğiniz kodları uyguladım ancak netice alamadım eklediğim dosya üzerinde gösterebilir misiniz?

 

[ozgretmen]

Dosya ekte...

 

[durhan]

Sayın ozgretmen; ilginiz ve emeğinizden dolayı size sonsuz teşekkürler, saygılarımı sunuyorum.

 

[ozgretmen]

Sayın ozgretmen; ilginiz ve emeğinizden dolayı size sonsuz teşekkürler, saygılarımı sunuyorum.

Rica ederim.İyi çalışmalar...