Activecell hk

[metinozlu]

Merhaba

Sheets(“onay”).range(“a3”).text=Sheets(“data”).Activecells(1,2).text

Kodu hata veriyor.

Sayfa adresi verilerek activecel li bir kod nasıl yazılabilir.

 

[Levent Menteşoğlu]

Activecell hücre tanımlamasının kullanılabilmesi için sayfanın aktif olması gerekir. Kodu aşağıdaki gibi değiştirin.

Sheets("data").select
Sheets("onay").range("a3")=Sheets("data").Activecell

 

[ileriexcel]

küçük bir örnek

Sub test()
Set s1 = Sheets("onay")
Set s2 = Sheets("data")
If s1.Range("a3").Text = s2.Range("b1").Text Then
'ilgili kodlarınız
End If
End Sub

 

[metinozlu]

sayın leventm

kodunuz 438 hatası verdi.
ayrıca ben veri olarak activecelli değil activecellin(1,2) verisini alacağım(alacağım veriden biri)
yardımınızı bekliyorum.

 

[Kemal Demir]

ActiveCell.Offset(0, 2).Select

Aktif hucrenin solundaki 2. hucreye gitmeyi sağlar.

Yukarıdaki zannedersem işinizi görür.

 

[metinozlu]

sorun activecell i seçmekte problem yok actifcelle göre farklı verileri farklı bir belge içinde toplama problemi var. dogru yanıtı henüz bulamadım.ama doğru cevabı vereceğinize inanıyorum.

 

[metinozlu]

sayın Leventm üstadın cevabına göre düzenlediğim ve sorunsuz çalışan kodları aşagıya ekledim.
İlgilenen arkadaşlara teşekkürler.

Worksheets("data").Activate
Sheets("onay").Range("c4") = Sheets("firma").Range("b3").Value & " " & Sheets("firma").Range("b4").Value & " " & Sheets("firma").Range("b5").Value
Sheets("onay").Range("c7") = ActiveCell(1, 2).Text 'Belge tarih ve sayısı
Sheets("onay").Range("a8") = Sheets("firma").Range("b10").Value & " " & "MAKAMINA"
Sheets("onay").Range("c11") = ActiveCell(2, 2).Text
Sheets("onay").Range("c12") = ActiveCell(3, 2).Text
Sheets("onay").Range("c13") = ActiveCell(4, 2).Text