Renklİlerİ Aktar

[PEPE]

"sayfadan Sayfay Renklİ Olanlari Aktar" Bu Konuyla İlgİlİ Çok Bİlgİ Var Ama Ben Kendİme GÖre Uyarlayamadim Yardimci Olursaniz Sevİnİrİm

 

[hamitcan]

Aşağıdaki kodu deneyin.

Sub ss()
c = 1
For Each hcr In [c2:c50]
    If hcr = Empty Then Exit Sub
    If hcr.Interior.ColorIndex = 4 Then c = c + 1: Sheet2.Cells(c, "e") = hcr
Next
End Sub

 

[PEPE]

hamitcana

Hamitcan arkadaşım kod için teşekkür ederim ama sayfa 1 den sayfa 2 ye aktarırken sayfa ikide d sütununda bir değer varken bunun 1 alt satırı e sütununa yazsın istiyorum hep alt alta aktarıyor

 

[PEPE]

herkese

yardım için

 

[hamitcan]

Sorunuzu birkaç defa okudum ama tam olarak anlayamadım. Sayfa2 de olması gereken halini gösterirseniz, cevap vermek kolaylaşacaktır.

 

[PEPE]

Tekrar Sordum

İlgİnİze TeŞekkÜrler

 

[hamitcan]

"tıkladığımda o hücreye gitsin" derken Sayfa2'de o hücreye gitmesini mi, yoksa o hücredeki değeri Sayfa2'ye taşımasını mı istiyorsunuz ?

 

[PEPE]

değeri taşıyacak

o hücredeki değeri sayfa 2 ye aktaracak

 

[hamitcan]

Kod: Sayfa1 de zemini yeşil olan bir hücre üzerine geldiğinizde size Sayfa2 de aktarmak istediğiniz hücreyi soracak. Sonra, "A1" şeklinde yazacağınız bir adrese aktif hücredeki değeri aktaracaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 4 Then
    hcr = InputBox("Sayfa2 de gitmesini istediğiniz hücrenin adresini girin")
    Sheet2.Range("" & hcr & "") = Target
End If
End Sub

 

[baydeniro]

Sayın hamitcan paylaşımınız için teşekkürler.