Sütuna makro atamak ve aynı sayfada ayrı 2 sütunla çalışmak

[irfancantr]

Merhaba değerli forum üyeleri,

Konu başlığı karışık gelebilir, özetle anlatmak gerekirse;

B sütununa değer girdiğimde A sütununa günün tarihini yazacak, ben bunu kısmen yaptım ama sıkıntım iki - üç sütunda işlem yapıyorum bu yüzden B sütununa ayrıca tarih için kodların ne olacağını bulamadım.

İkinci olarak ;

D ve E sütunlarına sayısal değerler giriyorum, bu değerlerin formülünü F sütununa yazdırıyorum ama ben hücreye formülü değilde sadece değeri yazmasını istiyorum.

Ekli dosyada çok daha basit ve açıklayıcı bir anlatım söz konusudur.

İlgilenen arkadaşlara çok teşekkür ederim.

 

[asi_kral]

Merhaba değerli forum üyeleri,

Konu başlığı karışık gelebilir, özetle anlatmak gerekirse;

B sütununa değer girdiğimde A sütununa günün tarihini yazacak, ben bunu kısmen yaptım ama sıkıntım iki - üç sütunda işlem yapıyorum bu yüzden B sütununa ayrıca tarih için kodların ne olacağını bulamadım.

İkinci olarak ;

D ve E sütunlarına sayısal değerler giriyorum, bu değerlerin formülünü F sütununa yazdırıyorum ama ben hücreye formülü değilde sadece değeri yazmasını istiyorum.

Ekli dosyada çok daha basit ve açıklayıcı bir anlatım söz konusudur.

İlgilenen arkadaşlara çok teşekkür ederim.

Merhaba
Kodu sayfanın kod bölümüne kopyalayın ve deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   A Sütuna İşleme Göre Tarih At ve Ortalama Bul
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
If Target.Column = 2 Then
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Cells(Target.Row, "A") = Empty Then
Cells(Target.Row, "A") = Date
End If
ElseIf Target.Column = 4 Or Target.Column = 5 Then
If Intersect(Target, Range("D:E")) Is Nothing Then Exit Sub
If Cells(Target.Row, "D") - Cells(Target.Row, "E") < 0.2 And _
Cells(Target.Row, "D") - Cells(Target.Row, "E") > -0.2 Then
Cells(Target.Row, "F") = WorksheetFunction.Average(Range("D" & Target.Row & ":E" & Target.Row))
Else
Cells(Target.Row, "F") = "TEKRAR"
End If: End If
End Sub

Dosyanız ektedir.

 

[irfancantr]

Merhaba
Kodu sayfanın kod bölümüne kopyalayın ve deneyin.
Dosyanız ektedir.

Teşekkür ederim Sn. asi_kral_1967

Sizi sıkmıyorsam bir sorum daha var, B sütununa değer girdiğimde eğer A sütununda tarih varsa tarih ekleme yapmasın istiyorum. Bunun sebebi geriye dönük işlem yapmak zorunda kaldığımızda olurda hücre düzenlemesi yaparsak eski tarih kaybolacak.

 

[asi_kral]

Teşekkür ederim Sn. asi_kral_1967

Sizi sıkmıyorsam bir sorum daha var, B sütununa değer girdiğimde eğer A sütununda tarih varsa tarih ekleme yapmasın istiyorum. Bunun sebebi geriye dönük işlem yapmak zorunda kaldığımızda olurda hücre düzenlemesi yaparsak eski tarih kaybolacak.

Üstteki dosya ve kod güncellendi.