Makro veriyi istenilen hücreye yapıştırılması

[kemal turan]

Makro ile veriyi istediğim hücreye yapıştıramıyorum.

Üstadlar merhaba
Ek'te gönderdiğim örnekte kodumuz B15:C15 ten aldığı veriyi N2:O2 ye yapıştırıyor. Bunu N14:O14 ten itibaren yapıştırmasını sağlayabilirmiyiz.
Sub Kaydetsatis1()
Worksheets("planlama").AutoFilterMode = False
Satır = Sheets("planlama").Cells(Rows.Count, 14).End(3).Row + 1
Range("b15:c15").Select
Selection.Copy
Sheets("planlama").Cells(Satır, 14).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Teşekkürler

 

[zafer]

Merhaba

Satır isimli değişken yerine 14 yazınız.N veya o sütünü boş olduğu için 2.satıra yapiştırıyor.
veya
Satır = Sheets("planlama").Cells(Rows.Count, 14).End(3).Row + 13 kullanın

Dosyanızı indiremiyorum onun için bakamadım

 

[kemal turan]

Merhaba zafer bey,
O değişikliği yapmıştım.İlk yapıştırmayı yapıyor.ikinci yapıştırmayı 13 satır sonrasına yani N27 ye yapıştırıyor.Ben ikinci yapıtırmayı N15 üçüncüyü N16 gibi her active oladuğunda bir sonrakine yapıştırsın istiyorum.
Teşekkür ederim

 

[zafer]

Merhaba

13. satır boş olduğunu farzederek her makro çalıştığında 13 satıra birşey yazsın sonra sizin kodlarınız çalışsın

Sub Kaydetsatis1()

cells(13,14)="xxx"

....
....
...

 

[kemal turan]

Zafer bey kusura bakmayın.
makroyu az bildiğim için anlayacağınız şekilde soru soramıyorum.Bu yüzden ihsan beyi de bazen çıldırtıyorum
Şimdi aşağıdaki makrolarım tam istediğim gibi çalışyor.
1 nci makroya tıkladığımda n22 ye yapıştırıyor.
2 nci makroya tıkladığımda n33 e yapıştırıyor.
tekrar 1 nci makroya tıkladığımda n44 e yapıştırıyor.
yani hangi makroya tıklarsam bir sonraki satıra yapıştırıyor.
İstediğim 1 nci tıkladığım n13:013 e yapıştırsın.
Teşekkür ederim.

Sub Kaydetsatis1()
Worksheets("planlama").AutoFilterMode = False
Satır = Sheets("planlama").Cells(Rows.Count, 14).End(3).Row + 1
Range("b15:c15").Select
Selection.Copy
Sheets("planlama").Cells(Satır, 14).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Sub Kaydetsatis2()
Worksheets("planlama").AutoFilterMode = False
Satır = Sheets("planlama").Cells(Rows.Count, 14).End(3).Row + 1
Range("b15:c15").Select
Selection.Copy
Sheets("planlama").Cells(Satır, 14).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Sub Kaydetsatis3()
Worksheets("planlama").AutoFilterMode = False
Satır = Sheets("planlama").Cells(Rows.Count, 14).End(3).Row + 1
Range("b16:c16").Select
Selection.Copy
Sheets("planlama").Cells(Satır, 14).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[zafer]

Merhaba


Makroya ilk tıkladığınızda n13'e y apışacak,
2. tıkladığınızda N14'e yapışacak

kırmızı boyalı kod her defasında 12. satıra yazacağı için sizin için sorun teşkil etmez.
N12 ye hücresine gidip elle birşeylerde yazsanızda aynı şey

Aşağıdaki satırda dolu olan son hücreyi belitmek için kullanıyoruz

Satır = Sheets("planlama").Cells(Rows.Count, 14).End(3).Row + 1

Sub Kaydetsatis1()
[COLOR=red]cells(12,14)="xxxxxxxxx"[/COLOR]
 
Worksheets("planlama").AutoFilterMode = False
Satır = Sheets("planlama").Cells(Rows.Count, 14).End(3).Row + 1
Range("b15:c15").Select
Selection.Copy
Sheets("planlama").Cells(Satır, 14).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 

[kemal turan]

Zafer bey,
İstediğimi ifade edebilmenin sevinci ile beraber sizlere ve ekibinize çok teşekkür ederim.
Selametle Kalın.

 

[kayserciyes]

hocam buna benzen bir sorda benim olcak
sayfa1 e girilen veri sayfa2 de ki o ismi bulup onun karşısına kopyalansın istiyorum
ÖRNEK DOSYA EKLİYORUM

 

[zafer]

Rica ederim , İyi çalışmalar

Sayın Kayseri konu başlığı açıp sorarsanız daha çok ilgilenen olacaktır.
cevapları daha çabuk alabilirsizniz.

 

[kayserciyes]

HOCAM AYNI KONU OLDUĞUNU DÜŞÜNDÜĞÜMDEN BURDA SORDUM
HEM SİTEDE AYNI KONULAR FARKLI FARKLI SAYFALARDA YER ALMASIN DİYE
site ilk kurulduğunda çok dikkat edilirdi mükerrer konulara falan
cevaplamasanızda sağolun hocam

 

[zafer]

Merhaba

Dosyayı ekliyeceğim fakat çıkmam gerek yarın dosyayı eklerim

 

[zafer]

Merhaba

Aşağıdaki linkte veri uygulamaları için bir çok örnek var onlardan faydalanabilirsiniz.

http://www.excel.web.tr/f119/


İstediğiniz dosya ektedir.İnceleyiniz.

 

[kayserciyes]

Eyvallah hocam
ben cevap yazmanızdan ümidi kesmiştim ))

Teşekkür ediyorum

linki de inceleyeceğim