Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Sub Enter_Tus()
ActiveCell.Offset(1, -4).Select
End Sub
If Target.Column = 5 Then 'If Target.Column = 3 And Target.Row > 1 Then
enter_Aktif
Else
enter_Pasif
End If
Evet A sütununa veri girip tab tuşuna basınca C sütununa, C sütununa veri girince tab tuşuyla E sütununa gitmeyi E sütununa veri girdikten sonra enterla A sütununa dönmeyi istiyorum.EĞER e sütunundan sonra A ya gidecekse alttaki gibi yapın ve en alttaki gibi 3 yerine 5 yazın.
Sub Enter_Tus()
ActiveCell.Offset(1, -4).Select
End Sub
If Target.Column = 5 Then 'If Target.Column = 3 And Target.Row > 1 Then
enter_Aktif
Else
enter_Pasif
End If
teşekkür ederim kod çok güzel çalışıyor fakat kendi dosyama entegre ettiğimde yanıt vermiyor. birde farklı bir sayfada çalışmasını istediğimde "Sayfa1" yazan yeri "Sayfa2" yaparsam diğer sayfada çalışıyor. Sayfa1 ve 2 de çalışsın ama 3 de çalışmasın dersen ne yapmalıyım. bir de sayfa ismini değiştirince çalışmıyorEkli dosyayı görüntüle 19077
Kod 2.satırdan itibaren çalışır öyle yaptım.İsterseniz koddaki yeri silin if ile yapılan =1 olan kısmı.
C#:Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
C#:Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Syn Refaz 'ın kodlarında küçük bir değişiklik yaptımteşekkür ederim kod çok güzel çalışıyor fakat kendi dosyama entegre ettiğimde yanıt vermiyor. birde farklı bir sayfada çalışmasını istediğimde "Sayfa1" yazan yeri "Sayfa2" yaparsam diğer sayfada çalışıyor. Sayfa1 ve 2 de çalışsın ama 3 de çalışmasın dersen ne yapmalıyım. bir de sayfa ismini değiştirince çalışmıyor