bir formdan diğerine koşullu veri alımı

[mhan]

selam arkadaşlar.ekte yolladığım dosyayla ilgiliş yardımcı olabilirmisiniz acaba.saygılarımla.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Range("k827").ClearContents
For Each bak In Range("g8:g27")
For Each bak1 In Range("k77")
If bak.Value = bak1.Value Then
bak.Offset(0, -1).Copy
say = WorksheetFunction.CountA([p765536]) + 1
s = s + 1
bak1(s + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[havidan]

yeni bir konuyla alakalı sorum olacak. Excel'de bir hücreye 0'dan büyük bir değer girdiğimde tanımladığım bir hücrenin renk değiştirmesini sağlamak istiyorum.
bu konuda yardımcı olursanız sevinirim.

 

[mhan]

v.basic for applications arkadaşım teşekkür ederim .ancak aktardığımız tutarları alt alta aralarında boşluk bırakmadan sıralayamazmıydık.

 

[N.Ziya Hiçdurmaz]

Biçim koşullu biçimlendirme ile yapabilirsiniz.