şartlı aktarma

[Barons]

Amaç:b1 ve c1 hücrelerine sayılar girerek a1 hücresinde çıkan sonuçları sırayla h kolonuna aktarmak...


Ekteki dosyada sayfa1' de B1 ve C1 hücrelerine sayı girdiğimde bunun sonucunu A1 hücresinde toplatıyorum.Çıkan sonuçlarıda H kolonuna aktarıyorum.İlk başta bunu düğme ile yapmıştım ama pratik olmadı...daha sonra sayfanın calculate kısmına aktarma kodunu yazarak G ve H sütunlarına aktarıyorum.

Sorun: kod; b1 yada c1 hücresine veri girdiğimde aktarıyor ancak benim istediğim her iki hücredeki değeri değiştirdiğimde ancak veriyi aktarması...oysa şimdi birine veri girdiğimde hemen aktarıyor ama ben b1 ve c1 hücrelerindeki her iki değeri değiştirdiğimde ancak aktarması...

Yardımlarınız için şimdiden teşekkürler

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayıp dener misiniz_?

Dim KL1 As Long, KL2 As Long
Dim KL3 As Long, KL4 As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Dim STR As Long
Application.EnableEvents = False
STR = Range("G" & Rows.Count).End(xlUp).Row
If Target.Column = 2 Then
If Intersect(Target, Range("B1")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
KL3 = Target
ElseIf Target.Column = 3 Then
If Intersect(Target, Range("C1")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
KL4 = Target
End If
If KL3 <> 0 And KL4 <> 0 Then
If KL3 = KL1 And KL4 <> KL2 Then
Cells(STR + 1, "G") = WorksheetFunction.Max(Range("G2:G" & STR)) + 1
Cells(STR + 1, "H") = Range("A1")
KL3 = 0: KL4 = 0
End If: End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
KL1 = Range("B1"): KL2 = Range("C1")
End Sub

 

[Barons]

Hocam çok teşekkürler...elinize sağlık çok makbule geçti..

 

[asi_kral]

Hocam çok teşekkürler...elinize sağlık çok makbule geçti..

Kolay Gelsin.

 

[Barons]

Sn Asi Kral
son yazdığınız kodu biraz açıklarmısınız...KL1 ? intersect v.s
adım adım çalıştırıyorum ve çok güzel çalışıyor ancak kod yapısını biraz anlatmanız mümkünmüdür?

 

[Barons]

hocam birde yeni farkettim .. 2 değer aynı olursa kod çalışmıyor.

dosyayı tekrar gönderiyorum.

Teşekkürler

 

[asi_kral]

hocam birde yeni farkettim .. 2 değer aynı olursa kod çalışmıyor.

dosyayı tekrar gönderiyorum.

Teşekkürler

Nasıl aktarım yapmıyor. Mesela B1 hücresine 6 hazın. Sonra C1 hücresine 6 yazın sonuçları gözlemleyin.

 

[Barons]

çok ilginç işyerinde yapmamıştı ama şimdi yapıyor...haklısınız hocam