Satır Atlayarak Kayıt Ekleme

[erdaltokan]

İyi günler arkadaşlar.Forumda aradım, çok uğraştım ama yapamadım.Makro konusunda yeniyim.Buton ile sayfa kopyalamayı başardım.Aynı zamanda kopyaladığım sayfanın adını aynı sayfada b2 hücresine atayabildim.Bi de eklediğim tüm sayfaların isimlerini butonun bulunduğu anasayfanın a sütununa 3 er satır atlayarak atamak istiyorum.Bu konuda sizden yardım istiyorum.

 

[yildirimm]

merhaba aşağıdaki kodları kendinize göre uyarlayin

Private Sub CommandButton1_Click()
Sheets(ComboBox2.Text).Select
son = Cells(65536, 5).End(xlUp).Row+3 '3 satır atlatarak kayıt yapar
For i = 1 To 7
If i >= 4 And i <= 7 Then
Cells(son + 1, i).Value = Controls("TextBox" & i).Value * 1

Else
Cells(son + 1, i).Value = Controls("TextBox" & i).Value
End If
Next
Cells(son + 1, "o").Value = ComboBox1.Value
Cells(son + 1, "p").Value = ComboBox3.Value
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton2_Click()
Set s1 = Sheets("anasayfa")
sayfa = InputBox("Lütfen firma Adını Yazınız")
If sayfa = "" Then Exit Sub
Sheets("masa").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = sayfa
say = [a65000].End(3).Row + 3
s1.Range("a" & say) = sayfa
End Sub

 

[erdaltokan]

&#304;lginize &#231;ok te&#351;ekk&#252;r ederim

 

[erdaltokan]

İlginize çok teşekkür ederim. Verdiğiniz kod ile anasayfaya satır atlayarak atama yapabiliyorum.Ancak bu sefer kopyaladığım sayfanın ismini aynı sayfanın b2 hücresine atayamıyorum.

 

[yildirimm]

Private Sub CommandButton2_Click()
Set s1 = Sheets("anasayfa")
sayfa = InputBox("L&#252;tfen firma Ad&#305;n&#305; Yaz&#305;n&#305;z")
If sayfa = "" Then Exit Sub
Sheets("masa").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = sayfa
say = [a65000].End(3).Row + 3
say = [b65000].End(3).Row + 3
s1.Range("a" & say) = sayfa
s1.Range("b" & say) = sayfa
End Sub

bu kodu deneyin olacakt&#305;r iyi calismalar

 

[N.Ziya Hiçdurmaz]

Bu kod ile de&#287;i&#351;tiriniz.
Private Sub CommandButton2_Click()
Set s1 = Sheets("anasayfa")
sayfa = InputBox("L&#252;tfen firma Ad&#305;n&#305; Yaz&#305;n&#305;z")
If sayfa = "" Then Exit Sub
Sheets("masa").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = sayfa
ActiveSheet.Range("b2") = sayfa
say = [a65000].End(3).Row + 3
s1.Range("a" & say) = sayfa
End Sub

 

[erdaltokan]

Te&#351;ekk&#252;rler arkada&#351;lar...