Veriyi başka sayfaya yazdırma

[vivaayew_ts]

Sub Makro3()

Dim a As Integer
Dim b As Integer
Dim x As Integer

a = Cells(7, 4)
b = Cells(8, 4)
Sheets("sayfa1").Select
x = Sayfa1.Cells(a, b)Sheets("sayfa2").Select
Cells(9, 4) = x


End Sub

Merhabalar ekteki dosyamda yukardaki gibi kod yazdım ama kırmızı yerde hata veriyor.
Amacım sayfa1 den sayfa 2ye veri yazdırmak. Bunun için sayfa 2 de a ve b değerleriyle almak istediğim ilk hücrenin adresini belirliyorum örnekte (14,3) oluyor. o değeride sayfa 2 de (9,4) hücresine yazdırmak istiyorum ama hata veriyor.

Yardımlarınız için teşekkür ederim.

 

[asi_kral]

Merhaba

Sub Makro3()
Dim a As Integer
Dim b As Integer
Dim x As Integer
a = Cells(7, 4)
b = Cells(8, 4)
Sheets("sayfa1").Select
x = Sayfa1.Cells(a, b)
Sheets("sayfa2").Select
Cells(9, 4) = x
End Sub

istediğiniz bu şekilde mi_?

 

[vivaayew_ts]

Evet yazdığım kod öyle ama
x = Sayfa1.Cells(a, b)
kısmında hata veriyor

 

[asi_kral]

Merhaba
Siz tam olarak ne yapmak istiyorsanız ufak bir dosya şeklinde örnekliyerek gönderir misiniz_?

 

[vivaayew_ts]

Onuda denedim

Sayfa2.Cells(9, 4) = Sayfa1.Cells(a, b)

burada hata veriyor busefer

 

[asi_kral]

Merhaba
Yanlış bilgiler yazmıştınız Cells( kodu 2 koşulludur Cells(6 yazarsanız 6. satır Cells(6,1 yazarsanız 6. Satır , 1. Sütun demek olur buda A sütunun 6. satırı demek olur.

Option Explicit
Sub veri_çek()
Cells(11, 4) = Sayfa1.Cells(Cells(8, 4), Cells(9, 4))
End Sub

Bu kod sizin istediğinizi yapıyor. Dosyadaki ne göre

 

[vivaayew_ts]

Değeri yazdırma yazdırıyor ama benim a ve b değerleriyle çekmeye çalışmamın şu
sayfa 1 de c13 değerini d12'ye bu değeri yazdırdık tamam ama sonra sırayla d13'e, d14'e da sayfa 1 deki bulunan g13 k13 o13 değerlerini döngüyle yazdırmak olacak. o yüzden sayfa 1den veri çekerken sütünlar 4 arttıracağım için sütünu b ile çekiyorum sonra b+4 diye devam edecem.

 

[asi_kral]

Değeri yazdırma yazdırıyor ama benim a ve b değerleriyle çekmeye çalışmamın şu
sayfa 1 de c13 değerini d12'ye bu değeri yazdırdık tamam ama sonra sırayla d13'e, d14'e da sayfa 1 deki bulunan g13 k13 o13 değerlerini döngüyle yazdırmak olacak. o yüzden sayfa 1den veri çekerken sütünlar 4 arttıracağım için sütünu b ile çekiyorum sonra b+4 diye devam edecem.

Dosya üzerinde örnekleyerek açıklar mısınız_?

 

[vivaayew_ts]

dosya ekte mevcut ilk mesajda

 

[Emir Hüseyin Çoban]

dosya ekte mevcut ilk mesajda

. . .

Gelmesi gereken değer nedir ?

. . .

 

[vivaayew_ts]

14
3

değerlerinin altına sırayla
1
2
3
4

diye devam edecek

13
3

değerlerinin altınada
a
b
c
d

devam edecek

 

[Emir Hüseyin Çoban]

. . .

İptal...

. . .

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

sat = Sayfa2.Range("d8")
sat2 = Sayfa2.Range("e8")
süt = Sayfa2.Range("d9")
süt2 = Sayfa2.Range("e9")
son = 11

If sat = sat2 + 1 And süt = süt2 Then

Sayfa2.Range("d11:e100").ClearContents

For i = süt To 25
If Sayfa1.Cells(sat, i) <> "" Then

Sayfa2.Range("d" & son) = Sayfa1.Cells(sat, i)
Sayfa2.Range("e" & son) = Sayfa1.Cells(sat2, i)
son = son + 1

Else: End If
Next i

Else
MsgBox " H a t a ", vbCritical
End If
End Sub

. . .

 

[vivaayew_ts]

İstediğimi tam olarak izah edemediğim için tam işimi görmedi ama kodlarınızı kullanarak başka bir yolla hallettim.
Yardımlarınız için teşekkür ederim.