bir hücreyi aktif hale getiren komut hangisi

Katılım
14 Eylül 2004
Mesajlar
4
Merhabalar, ben macro işlerini pek bilmiyorum.
Sorum şu.
Normalde F2 tuşunu kullanarak aktif hale getirdiğimiz hücreyi macro yazarken hangi konut ile aktif hale getiriyoruz.

Þöyle bir şey yazdım; ActiveCell.Offset(1, 0).Select
ActiveCell.Copy
ActiveCell.Offset(-1, 0).Select
ActiveCell.Select
ActiveCell.PasteSpecial

4. satırdaki "activecellselect" yerine oraya yazacağım komutla hücredeki diğer bilgi silinmeden diğer hücreden kopyaladığım bilgiyi yapıştırmak istiyorum. saygılarımla.
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
hangisi

Yapacağınız işlem nümerik ise Macro1'i, alfanümerik ise Macro2'yi bir deneyin,işinizi görür sanırım.

Kod:
Sub Macro1()
eklenecek = ActiveCell.Offset(1, 0)
ActiveCell.Value = ActiveCell.Value + eklenecek
End Sub

Sub Macro2()
eklenecek = ActiveCell.Offset(1, 0)
ActiveCell.Value = ActiveCell.Value & eklenecek
End Sub
 
Katılım
14 Eylül 2004
Mesajlar
4
ben beceremedim. alt hücredeki metni veya kelimeyi üst hücredeki metin veya kelime silinmeden yanına macro yoluyla yapıştırrmaya çalışıyorum. dolayısyla üst hücreye çıktığında o hücreyi active hale getirmem gerekiyor. (yani cursor yanıp sönecek) ama olmuyor
 
X

xxrt

Misafir
devonx' Alıntı:
diğer hücreden kopyaladığım bilgiyi yapıştırmak istiyorum. saygılarımla.
Hücreye Herhangi bir Sayı A Sütununda bir hücreye Yapıştırmak istediğinizde Yapıştırın ve Klavyedeki END Tuşuna basın.Bu Kodları Sayfa1'in kod kısmına
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a500")) Is Nothing Then
MySum = ActiveCell.Value
Application.OnKey "{END}", "SumTotal"
Else: Application.OnKey "{END}"
End If
End Sub
Bu Kodlarıda Modül1' e
Kod:
Public MySum As Long ' Bu satır General_Declarations kısmında olucak

Sub SumTotal()
Set MyRange = Sheets("Sayfa1").Range(ActiveCell.Address)
MyRange.Value = MyRange.Value + MySum
Set MyRange = Nothing
End Sub

Sub Auto_Close()
Application.OnKey "{END}"
End Sub
Kaynak:Raider- 04/03/2003 12:54:53
 
Üst