Kopyala Özel yapıştır

[kardelen79]

Arkadaşlar olur mu bilmem ama sanırım makro ile olacak bende hiç anlamıyorum şart sağlandığında C4 hücresindeki değer F2 hücresindeki -0,04 küçük ise A4 hücresi kopyalayarak B4 hücresine özle yapıştırdan değerleri yapıştırmasını istiyorum tabi bu sistemi açmak için birde buton olması lazım ğerektiğinde durdurmak için

 

[bordo6181]

Tam istediğiniz gibi olmasada bu şekilde oluyor.

Buton koymadım ama Yeni sayfasında belirlediğiniz koşula göre istediğiniz işlemi yapıyor sadece ilk kısma değerleri giriyorsunuz.

 

[bordo6181]

Formülde hata yapmışım doğrusu bu

 

[bordo6181]

Arkadaşlar olur mu bilmem ama sanırım makro ile olacak bende hiç anlamıyorum şart sağlandığında C4 hücresindeki değer F2 hücresindeki -0,04 küçük ise A4 hücresi kopyalayarak B4 hücresine özle yapıştırdan değerleri yapıştırmasını istiyorum tabi bu sistemi açmak için birde buton olması lazım ğerektiğinde durdurmak için

Buton önemli ise kıstas ne olacak şu hücreden sonrasını yapma gibisinden mi bi kriter olursa butonu da yapabilirim

 

[kardelen79]

bu şekide deği bu makro ile olması lazım bence

 

[hmtstc]

merhaba, ekteki dosyayı dener misiniz

 

[kardelen79]

olmadı sanırım idirdim buton boş

 

[hmtstc]

butona işlev eklemeyi atlamışım, pardon.

 

[kardelen79]

butonu sadece sistemi açsa o baz aldığımız rakamın üstüne çıktığı anda sistem bu işlemi kendi yapsa biz buna basmadan

 

[kardelen79]

artı olan değerlerde

 

[usubaykan]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
kısıt = Cells(2, 6)
If Cells(Target.Row, 3) < kısıt Then
Cells(Target.Row, 2) = Cells(Target.Row, 1)
End If
End Sub