Hücredeki veriyi başka bir noktaya kopyalama ?

[selaminet]

Slmlar, arkadaşlar,

bir sorum olacak

A1 - B1 - C1 satılarında, kelimelerimiz var,

örneğin

A1 de AHMET B2 de YILMAZ C2 de BURADA

burada yazılı olan kelimeleri, bir formül ile, kaydet e basınca,

Sayfa 2 deki

A1 - B1 - C1 sütünlarına yazdırmak istiyorum,

tekrar kaydet dediğimde,

A2 B2 C2 şeklinde, devam edecek, yani bir nevi veri giriş formu oluşturmak istiyorum,

yardımcı olacak arkadaşlar var ise yazar ise çok sevinirim

Teşekkürler,

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub kaydet()
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("Sayfa2")
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
If s2.Cells(1, 1) = "" Then sonsatir = 1
s2.Cells(sonsatir, 1) = s1.Cells(1, 1)
s2.Cells(sonsatir, 2) = s1.Cells(1, 2)
s2.Cells(sonsatir, 3) = s1.Cells(1, 3)
End Sub

Kodlarını yerleştirin ve bir butona bağlayarak çalıştırın.
İyi çalışmalar.

 

[selaminet]

ALLAH razı olsun, gayet süper oldu, çok teşekkür ederim, muygun hayırlı günler dilerim.

 

[selaminet]

peki şunu sormak istiyorum, sayfa2 ye yazıyor, sayfa2 içinde

B4 üncü satırdan başlatma imkanım varmı,

 

[YUSUF44]

sonsatir = s2.Range("A65536").End(xlUp).Row + 1
If s2.Cells(1, 1) = "" Then sonsatir = 1

yerine

sonsatir = Worksheetfunction.max(4,s2.cells(rows.count,1).End(xlUp).Row + 1)
If s2.[B4]= "" Then sonsatir = 4

deneyin.

 

[selaminet]

cevabınız için teşekkür ederim, hocam

ben şunu istiyorum,

Sayfa 1 deki B2 deki metni kelimeyi

Sayfa 2 de istediğim noktadan başlayarak yazdırmak

Yani

başta sıra no var çünkü

1
2
3
4

B2 den itibaren hücre ismi yazarak girme imkanı yokmu ?

s2.Cells(sonsatir, 1) = s1.Cells(5, 2) bunun yerine mesela s1.Cells(B4) gibi ?

teşekkürler,

 

[YUSUF44]

Özür dilerim, ilk cevapta bir hata yapmışım. rows.count,1 yerine, rows.count,2 olmalı, çünkü B sütunu ikinci sütundur.

sonsatir = Worksheetfunction.max(4,s2.cells(rows.count,2).End(xlUp).Row + 1)
If s2.[B4]= "" Then sonsatir = 4

Bu kodun ilk satırı, en az 4 olmak üzere B sütunundaki ilk boş hücreyi bulup 1 ekliyor.
İkinci satır ise eğer B4 hücresi boş ise B4'ten başlamasını sağlıyor. Bu satır olmasaydı B4 boşken kodun ilk satırında son boş satır 4 olarak bulunacak ve 1 eklenip B5'ten itibaren yazmaya başlayacaktı.