For X = 1 To [A65536].End(3).Row

m.gur · 25 Haziran 2008

Merhaba arkadaşlar;
Benim merak ettiğim ve sorum şudur. Aşağıdaki satır aynen yazılmak zorundamı?

For X = 1 To [A65536].End(3).Row

Bunu neden sorduğuma gelince:ben A sütunundaki belirli bir satıra kadar olan veriler için yazmak istiyorum. Mesela: For X = 1 To [A12].End(3).Row
Bu bir kalıpmıdır ? Teşekkür ederim şimdiden.

Zeki Gürsoy · 25 Haziran 2008

Döngünün kaç kez tekrar etmesi gerektiğini biliyorsanız, "[A65536].End(3).Row" yazmak zorunda değilsiniz.

Bu satır ile son satır tespit edilir ve döngü sayısı buna göre ayarlanır.

Mahmut Kök · 25 Haziran 2008

m.gur' Alıntı:
Merhaba arkadaşlar;
Benim merak ettiğim ve sorum şudur. Aşağıdaki satır aynen yazılmak zorundamı?

For X = 1 To [A65536].End(3).Row

Bunu neden sorduğuma gelince:ben A sütunundaki belirli bir satıra kadar olan veriler için yazmak istiyorum. Mesela: For X = 1 To [A12].End(3).Row
Bu bir kalıpmıdır ? Teşekkür ederim şimdiden.

A sütunundan 65536. satıra kadar olan satırlardaki en son dolu satırı verir. (Zaten ofis xp ve 2003'te 65536 satır var.)

m.gur · 25 Haziran 2008

Sayın Zeki Gürsoy ve Mahmut Kök anında cevaplarınız için teşekkür ederim. Ancak yapmak istediğimi yapamadım. Kodu yazıyorum.

Private Sub CommandButton1_Click()
Set S1 = Sheets("ANA")
For X = 1 To S1.[B10].End(3).Row
If S1.Cells(X, 2) <> "" Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = S1.Cells(X, 2)
End If
Next
S1.Select
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
Exit Sub

End Sub

Bu formülle listede ne kadar veri varsa o kadar sayfa açıp adını yazsın.Ben burada 11 veri yazıp 10 adedini yazdırmak istedim ancak 1 adedini yazıyor diğerlerini yazmıyor.
dosya ekte

N.Ziya Hiçdurmaz · 25 Haziran 2008

Yanıt

lingi inceleyiniz
http://www.excel.web.tr/showthread.php?t=38443

Zeki Gürsoy · 25 Haziran 2008

B10 hücresinden yukarı "sıçrama" yaptığında B1 hücresinde duracaktır. Daha aşağıdan başlasın. Örneğin,

Kod:

    For X = 1 To S1.[COLOR=Blue][B][B100][/B][/COLOR].End(3).Row

m.gur · 25 Haziran 2008

Sayın N.Ziya Hiçdurmaz hocam;verdiğiniz linki inceledim ama benim istediğim şekilde olmuyor.
Sayın Zeki Gürsoy Hocam; dediğiniz gibi deki değeri arttırırsam oluyor, ama ben öyle olsun istemiyorum. Yani sınır koymak istiyorum. Şöyleki;B sütununda 30 adet veri varsa ben bunlardan istediğim kadarına sayfa açtırmak istiyorum (mesela 12 adet) umarım anlaşılmıştır demek istediğim. Teşekkürler.

Zeki Gürsoy · 25 Haziran 2008

O zaman Inputbox kullanmamız gerekecek. Uygun mudur?

m.gur · 25 Haziran 2008

Zeki hocam ben o kadar ileri düzeyde bilmiyorum. kendi çapımda buradan öğrendiklerimle ufak tefek dosyalar yapıp kullanıyorum. Sağolsun herkes yardımcı oluyor sizlerin sayesinde çok şeyler öğrenip uyguladım. Öneriniz için teşekkür ederim sizce uygunsa neden olmasın.

Orion1 · 25 Haziran 2008

Düngü 5 kere döner.

Kod:

For X = 1 To 5

Skorpiyon · 25 Haziran 2008

Sayın m.gur,
Inputbox ile ilgili örneği şöyle yapabilirsiniz.

Private Sub CommandButton1_Click()
Set S1 = Sheets("ANA")
a = inputbox ("Lütfen Sınır Olacak Değeri Giriniz")
For X = 1 To a
If S1.Cells(X, 2) <> "" Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = S1.Cells(X, 2)
End If
Next
S1.Select
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
Exit Sub

End Sub

Korhan Ayhan · 25 Haziran 2008

Selamlar,

Aşağıdaki kodu denermisiniz. Kodu çalıştırdığınızda size başlangıç ve bitiş satır noları sorulacaktır. Vereceğiniz cevaplara göre döngü aralığı oluşacaktır.

Kod:

Private Sub CommandButton1_Click()
    Set S1 = Sheets("ANA")
    &#304;LK = InputBox("L&#252;tfen d&#246;ng&#252;n&#252;z&#252;n ba&#351;lang&#305;&#231; sat&#305;r&#305;n&#305; giriniz !", "BA&#350;LANGI&#199; SATIRI", 1)
    If &#304;LK = "" Or &#304;LK = False Then Exit Sub
    SON = InputBox("L&#252;tfen d&#246;ng&#252;n&#252;z&#252;n biti&#351; sat&#305;r&#305;n&#305; giriniz !", "B&#304;T&#304;&#350; SATIRI", [B65536].End(3).Row)
    If SON = "" Or SON = False Then Exit Sub
    For X = &#304;LK To SON
    If S1.Cells(X, 2) <> "" Then
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = S1.Cells(X, 2)
    End If
    Next
    S1.Select
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
    Exit Sub
End Sub

m.gur · 26 Haziran 2008

Arkadaşlar hepinize teşekkür ederim. Sayın Şaban Sertkaya'nın vermiş olduğu kodları uyguladım önce çalışıyordu denemeye devam edince gördümki sınır olarak 12 yazdığımda hata veriyor. Sayın Korhan Ayhan hocamın verdiği kodları uyguladım çok güzel oldu, hatasız çalışıyor. Örnek olsun diye dosyayı ekliyorum belki faydalanan olur. Hepinize mutlu günler dilerim.

ofbalki · 26 Haziran 2008

Arkadaşlar, sanırım sayfa isimlerinin tekrarı durumunda hata veriyor.

Kodları tekrar gözden geçirebilirmiyiz.

Korhan Ayhan · 26 Haziran 2008

Selamlar,

Kodların tekrar çalışması durumunda yada listede aynı isimlerin bulunması durumunda hata vermemesi için kodu aşağıdaki şekilde kullanabilirsiniz.

Kod:

Private Sub CommandButton1_Click()
    Set S1 = Sheets("ANA")
    İLK = InputBox("Lütfen döngünüzün başlangıç satırını giriniz !", "BAŞLANGIÇ SATIRI", 1)
    If İLK = "" Or İLK = False Then Exit Sub
    SON = InputBox("Lütfen döngünüzün bitiş satırını giriniz !", "BİTİŞ SATIRI", [B65536].End(3).Row)
    If SON = "" Or SON = False Then Exit Sub
    For X = İLK To SON
    If S1.Cells(X, 2) <> "" Then
    [COLOR=red]If SAYFA(S1.Cells(X, 2)) = False Then[/COLOR]
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = S1.Cells(X, 2)
    [COLOR=red]End If[/COLOR]
    End If
    Next
    S1.Select
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Exit Sub
End Sub
 
[COLOR=red]Function SAYFA(SAYFAADI As String) As Boolean[/COLOR]
[COLOR=red]    On Error Resume Next[/COLOR]
[COLOR=red]    SAYFA = CBool(Len(Worksheets(SAYFAADI).Name) > 0)[/COLOR]
[COLOR=red]End Function[/COLOR]

m.gur · 4 Temmuz 2008

Merhaba
Benim sorunum şablon sayfasını çoğalttığımda şablonda ne varsa aynısını yeni sayfaya eklesin. Benim yaptığımda aynısı oluyor ama ölçüleri aynı olmuyor, yeniden düzenlemem gerekiyor yani. Ölçüler aynı olsun istiyorum. Bir de şablon sayfasını korumaya aldığımda sayfayı çoğaltırsam formülleri kopyalamıyor. Bunu nasıl yapmam gerek.. dosyamı ekliyorum. Dosya bu haliyle hatasız çalışıyor. Ben biraz daha düzgün olmasını istedim hepsi bu.. Teşekkürler. Bu haliyle işine yarayan arkadaşlar kullanabilir dosyayı.

Kemal Demir · 4 Temmuz 2008

Günaydın,

m.gur

zannedersem aşagıdaki kod işinizi görebilir.

Kod:

    isim = InputBox("olusturulacak Sayfa Ad&#305;n&#305; Giriniz")
    sayfasay = Sheets.Count
    Sheets("SABLON").Select
    Sheets("SABLON").Copy After:=Sheets(sayfasay)
    ActiveSheet.Name = isim

m.gur · 4 Temmuz 2008

Sayın Rakkas
Teşekkür ederim, bütün kodları silip sizin kodları yazdığımda aynısını kopyalıyor. Fakat ben bu şekilde istemedim. Her sayfaya isim yazmak gerekiyor. Sizin kodları nereye ve nasıl yerleştireceğimi bilemedim. Bazı yerlere yazdım ama olmadı yapamadım yani.

Kemal Demir · 4 Temmuz 2008

Kod:

For x = 2 To Sheets("ANA").[a65536].End(3).Row
   sayfasay = Sheets.Count
    Sheets("SABLON").Select
    Sheets("SABLON").Copy after:=Sheets(sayfasay)
    ActiveSheet.Name = Sheets("ANA").Cells(x, 2)
Next

m.gur · 4 Temmuz 2008

Sayın Rakkas;
Tşkler ama olmuyor.

For X = 1 To [A65536].End(3).Row

m.gur

Zeki Gürsoy

Uzman

Mahmut Kök

Özel Üye

m.gur

N.Ziya Hiçdurmaz

Özel Üye

Zeki Gürsoy

Uzman

m.gur

Zeki Gürsoy

Uzman

m.gur

Orion1

Uzman

Skorpiyon

Misafir

Korhan Ayhan

Administrator

m.gur

ofbalki

Korhan Ayhan

Administrator

m.gur

Kemal Demir

Özel Üye

m.gur

Kemal Demir

Özel Üye

m.gur