userform üzerindeki textbox kutusunu yazdıgımı aktifsayfa ve sayfa2 ye atsın

[akd44]

:yardim: arkadaşlar kolay gelsin bu ekdeki dosyaya yardımcı olursanız sevinirim
ben aktif sayfa yani form düğmesi olan sayfalara yazdımı sayfa 2 atmasını istiyorum nasıl yapmam lazı şimdiden teşekkürler :yardim:

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("B2:B65536").ClearContents
adr1 = Range(Cells(2, "A"), Cells(s1.Cells(65536, "A").End(xlUp).Row, "A")).Address
adr2 = Range(Cells(2, "B"), Cells(s1.Cells(65536, "A").End(xlUp).Row, "B")).Address
s2.Range(adr2).Value = s1.Range(adr1).Value
MsgBox "Sayfa2'ye Akatarıldı..!!", vbOKOnly + vbInformation
End Sub

 

[akd44]

sn orion2

aktif saayfayı şimdi gönderdim ekteki gibi deminki yanlış oldu
yani aktif sayfa (açık olan sayfa) yazdıgımı sayfa 2 atmasını itiyorum

 

[akd44]

sayın orion2 user form üzerindeki text kutusuna yazdıgımı aktifsayfa ve sayfa 2 yazmasını istiyorum
"aktif sayfadan kasıt userform hangi sayfanın üstünde ise ona ve de sayfa2 yazmasını istiyoru"

 

[Orion1]

Aktar makrosunu çalıştırdığınızda hangi sayfa aktif ise o sayfanın a sütununu Sayfa2'deki b sütununa aktarıyor.

Sub aktar()
Set s1 = Sheets([COLOR="Red"]ActiveSheet.Name[/COLOR])
Set s2 = Sheets("Sayfa2")
s2.Range("B2:B65536").ClearContents
adr1 = Range(Cells(2, "A"), Cells(s1.Cells(65536, "A").End(xlUp).Row, "A")).Address
adr2 = Range(Cells(2, "B"), Cells(s1.Cells(65536, "A").End(xlUp).Row, "B")).Address
s2.Range(adr2).Value = s1.Range(adr1).Value
MsgBox "Sayfa2'ye Akatarıldı..!!", vbOKOnly + vbInformation
End Sub

 

[akd44]

sayın orion2 yaptıgınız çok güzel ama beni dedigim text box tan aktarmak

Aktar makrosunu çalıştırdığınızda hangi sayfa aktif ise o sayfanın a sütununu Sayfa2'deki b sütununa aktarıyor.

Sub aktar()
Set s1 = Sheets([COLOR="Red"]ActiveSheet.Name[/COLOR])
Set s2 = Sheets("Sayfa2")
s2.Range("B2:B65536").ClearContents
adr1 = Range(Cells(2, "A"), Cells(s1.Cells(65536, "A").End(xlUp).Row, "A")).Address
adr2 = Range(Cells(2, "B"), Cells(s1.Cells(65536, "A").End(xlUp).Row, "B")).Address
s2.Range(adr2).Value = s1.Range(adr1).Value
MsgBox "Sayfa2'ye Akatarıldı..!!", vbOKOnly + vbInformation
End Sub

orada forma tıklarsanız userform açılacak ve yazdıgınız sayfa1 ve 2 ye yazacak bnim istedigim text hangi sayfanın üstünde ise ona vede sayfa 2 ye yzmasını istiyorum teşekkürler

 

[Orion1]

Ekli dosyayayı inceleyiniz.

Private Sub CommandButton1_Click()
[a65536].End(3).Offset(1) = Me.TextBox1.Value
[sayfa2!a65536].End(3).Offset(1) = Me.TextBox1.Value
Me.TextBox1 = Empty
Me.TextBox1.SetFocus
End Sub

 

[akd44]

sayın orion2 arkadaşım çok teşekkür ederim

Ekli dosyayayı inceleyiniz.

Private Sub CommandButton1_Click()
[a65536].End(3).Offset(1) = Me.TextBox1.Value
[sayfa2!a65536].End(3).Offset(1) = Me.TextBox1.Value
Me.TextBox1 = Empty
Me.TextBox1.SetFocus
End Sub

sizlere kolay gelsin :bravo: :hihoho: