- Katılım
- 21 Ağustos 2005
- Mesajlar
- 625
- Excel Vers. ve Dili
- Office 365 - İngilizce
Bir arkadaşmızın sorduğu soruya cevap bulabilmek için birşeyler yapıyorum ama bir noktadan sonra tıkanıyorum maalesef
Sorum şu ; aşağıdaki kodlarla farklı bir çalışma kitabını açıyorum.Eğer bu kitap içinde textbox2 deki firmaya ait sayfa var ise onu seçeceğiz, yoksa SABLON sayfasını kopyalaıyp adına, textbox2 deki değeri yazdıracağım.
Not:Arkadaşımızın sorusunu sorduğu yer http://www.excel.web.tr/f50/sat-r-kopyalama-t63350.html
Sorum şu ; aşağıdaki kodlarla farklı bir çalışma kitabını açıyorum.Eğer bu kitap içinde textbox2 deki firmaya ait sayfa var ise onu seçeceğiz, yoksa SABLON sayfasını kopyalaıyp adına, textbox2 deki değeri yazdıracağım.
Kod:
Private Sub CommandButton1_Click()
Sheets("Günlük İhbarlar").Select
a = [A65536].End(3).Row + 1
Cells(a, 1) = TextBox1
Cells(a, 2) = TextBox2
Cells(a, 3) = TextBox3
Cells(a, 4) = TextBox4
Cells(a, 5) = TextBox5
Cells(a, 6) = TextBox6
Cells(a, 7) = TextBox7
Cells(a, 8) = TextBox8
Cells(a, 9) = TextBox9
Cells(a, 10) = TextBox10
Cells(a, 11) = TextBox11
Cells(a, 12) = TextBox12
MsgBox ("İhbarlar Ana Sayfaya Kaydedildi")
x = TextBox2.Value
ChDir "C:\deneme"
Workbooks.Open Filename:= _
"C:\deneme\firmalar.xls"
Windows("firmalar").Activate
Unload Me
For i = 1 To Worksheets.Count
If Worksheets(i).Name = x Then
Sheets(x).Select
a = [A65536].End(3).Row + 1
Cells(a, 1) = TextBox1
Cells(a, 2) = TextBox2
Cells(a, 3) = TextBox3
Cells(a, 4) = TextBox4
Cells(a, 5) = TextBox5
Cells(a, 6) = TextBox6
Cells(a, 7) = TextBox7
Cells(a, 8) = TextBox8
Cells(a, 9) = TextBox9
Cells(a, 10) = TextBox10
Cells(a, 11) = TextBox11
Cells(a, 12) = TextBox12
GoTo 10
Else
Sheets("SABLON").Copy After:=Sheets(Sheets.Count)
Sheets("SABLON (2)").Select
[COLOR=Red][B]ActiveSheet.Name = TextBox2.Value[/B][/COLOR] <-----BU SATIRDA HATA VERİYOR
End If
Next
10
MsgBox ("İhbarlar Firmaya Ait Safayada Kaydedildi.")
ActiveWorkbook.Save
ActiveWindow.Close
End Sub