range ve copy ama

[sonstiq]

arkadaslar dünden beri forumda arıyorum
bulduum range ve copy formatından olusan bir makro var ve son isminde bir application tanımlanmıs
şu kodlar ile

Private Sub CommandButton1_Click()
son = Application.CountA(Sayfa2.Columns(1)) + 1
Sayfa1.Range("A1").Copy Destination:=Sayfa2.Range("a" & son)
Sayfa1.Range("B1").Copy Destination:=Sayfa2.Range("b" & son)
End Sub
ama ben hücre bir diğre hücreye gönderilsin istiorum ama sadece değer olarak
formul ve hücre formatı gönderilmesin istiorum

peki bu şekilde yapsam

Sub DoWhileLoop_03()
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
Else
ActiveCell.Value = 1
End If
ActiveCell.Offset(0, 1).Value = Range("F1").Value
ActiveCell.Offset(0, 2).Value = Range("F2").Value
Range("F1").Value = ""
Range("F2").Value = ""
Range("F1").Select
End Sub

ama sonucu sayfa2 deki hücrelere yazdırmak istiorum
ekteki kaynaktan da yardımcı olabilirsiniz
saygılar
teşekkürler

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
son = Application.CountA(Sayfa2.Columns(1)) + 1
Sayfa2.Cells(son, 1) = [a1]
Sayfa2.Cells(son, 2) = [b1]
End Sub

 

[sonstiq]

ama bu sefer de
mesala a1 deki sayının hedefi f1 ken
a2 deki sayının hedefi f5 olamıyor
bunu nasıl ayarlıcam?

 

[Ozcan27]

Bu şekilde kaydetse olur mu?

belki diğer arkadaşlar daha kolay bir yol söyleyebilir ama ben bu şekilde kullanıyorum.
Ancak sayfa2 sheet'te

A l B
veri sıra no l Veri

Şeklinde oluşturmalısın.


Private Sub CommandButton1_Click()


Worksheets("sayfa2").Select
Worksheets("sayfa2").Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
Else
Worksheets("sayfa2").Range("a2").Select
ActiveCell.Value = 1
End If

ActiveCell.Offset(0, 1).Value = Range("b1").Value
Worksheets("sayfa1").Select
Worksheets("sayfa1").Range("b1").Select
End Sub

 

[sonstiq]

b1 | b1 e yazıcak
ama a1 de c1 e yazmalı
ya da

sayfa1 a1 - sayfa2 b1 e
sayfa1 b1 - sayfa2 c1 e yazmalı

 

[Ozcan27]

Sanırım şimdi oldu.

Aşağıdaki koyu kısma dikkat edersen sanırım yeni eklenti için sende birşeyler katabilirsin.

Private Sub CommandButton1_Click()


Worksheets("sayfa2").Select
Worksheets("sayfa2").Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
Else
Worksheets("sayfa2").Range("a2").Select
ActiveCell.Value = 1
End If

ActiveCell.Offset(0, 1).Value = Range("a1").Value
ActiveCell.Offset(0, 2).Value = Range("b1").Value
Worksheets("sayfa1").Select
Worksheets("sayfa1").Range("b1").Select
End Sub

 

[sonstiq]

ok kaptım olayı cok saol
fakat
ben sayfa2 leri sayfa 9 yaptıım zaman hata veriyor
sorun nedir
ve de range(a2) komutu ne işe yarıyor?
subscript out of range
(değişiklik yapmasamda)

tamam hallettim meğer sayfanın insance name i yazmak gerekiormuş
teşekkür ederim
a2 de başlayacağı yermiş
saolun

 

[sonstiq]

şimdi de şu sorun var

mesala sayfa 2 de böyle bir buton yaparsam
ve de sayfa 3 de aynısından olursa
sayfa 3 de her tıkladığımda sayfa 2 ye dönüyor.
oysa ben sayfa 2 ye basarsam sayfaya 2
sayfa 3 de basarsam sayfa 3 e dönsün istiorum

 

[sonstiq]

Acil cvp bekliorum

 

[sonstiq]

tamam hallettim siteye cok teşekkürler