hücredeki yazıyı sayfa adı olarak yazma

ilhanfire · 11 Kasım 2007

resimde görüldüğü gibi işaretli yere(sayfa adının yazılması gereken yer) a1 hücresinde yer alan yazının yazılmasını istiyorum bu alana yazılacak gerekli kod nedir

bir de a2 ye değer yazdığımda bu kod tekrar aktif olsun aynı işlevi a2 için yapsın yani döngü olsun------ nasıl yaparım

yardımcı olursanız sevinirim. gerçi bu güne kadar yazdığım hiç bir soruya yanıt alamadım ama neyse

çıkmadık candan ümit kesilmez ben yinede sorayım

Necdet · 11 Kasım 2007

Merhaba,

Resimi doğru dürüst göremedim ben, bir gören olursa yardım edecek te çıkar.

Ferhat Pazarçevirdi · 11 Kasım 2007

Merhabalar

yardımcı olursanız sevinirim. gerçi bu güne kadar yazdığım hiç bir soruya yanıt alamadım ama neyse

Sorularınızı takip etmenizde ve alt sıralara düştüğünde tekrar güncellemenizde fayda var -ki böylelikle dikkat çekebilsin-. Sorularınızı cevap alamamanızda herhangi bir art niyet zaten olamaz, mümkün de değil.. Sadece gözden kaçmış olabilir.

Sorunuza gelince;

Kod:

Activesheet.Name=Range("A2").Value

yazarsanız, bu satıra gelindiğinde Aktif sayfa ismi, A2 hücresinde yazılan olur.

bir de a2 ye değer yazdığımda bu kod tekrar aktif olsun aynı işlevi a2 için yapsın yani döngü olsun------ nasıl yaparım

Worksheet'in Change olayına kodlarınızı taşımanız ve Intersect fonskiyonunu kullanmanız gerekir. Şöyle ki;

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
[COLOR=green]'.......[/COLOR]
[COLOR=green]'Sizin kodlar&#305;n&#305;z[/COLOR]
[COLOR=green]'.....[/COLOR]
End Sub

Mahmut Kök · 11 Kasım 2007

Kod:

activesheet.name = [a1]

ilhanfire · 11 Kasım 2007

merhaba bir anlık kızgınlıkla yazmışım. özür dilerim.
yazdığınız kodlar bende bir işe yaramadı siz de denermisiniz. belki versiyon sürümü hatası vardır.

ilgili dosyayı ekledim.
cevabınızı bekliyorum. teşekkürler

Sub Makro2()
'
' Makro2 Makro
'

'
Range("A1").Select
Selection.Copy
Windows("2.xls").Activate
ActiveSheet.Select
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = "A1"
Range("A3").Select
Windows("1.xls").Activate
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("2.xls").Activate
ActiveSheet.Paste
Windows("1.xls").Activate
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("2.xls").Activate
Range("B5").Select
ActiveSheet.Paste
Windows("1.xls").Activate
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("2.xls").Activate
Range("C6").Select
ActiveSheet.Paste
Windows("1.xls").Activate
End Sub

ilhanfire · 11 Kasım 2007

belki buda yardımcı olur

Do While Döngüsü :

Bu dögünün genel yazim sekli asagidaki sekildeki gibidir.
Do While Kosul
Komutlar
Loop
Burada önce Kosula bakilir. Eger kosul dogru ise aradaki satirlar çalistirilir taki Loop satirina kadar. Loop satirinda tekrar While satirina dönülür. Kosul tekrar kontrol edilir. Eger dogru ise ara satirlar tekrar çalistirilir. Kosul yanlis ise Loop ‘tan sonraki ilk satirdan program çalismaya devam eder. Içiçe Do While döngüleride kurabiliriz.
Do While Kosul1

….
Do While Kosul2
…
Komutlar
Loop
…..
Loop
Her Do While için mutlaka bir Loop yerlestirmeliyiz.
Örnek :

Fact=1 I=2

Do While I<=Sayi

Fact=Fact * I

I=I+1

Loop

Buradaki örnekte te faktöriyel hesabini Do While döngüsü ile yapiyoruz. Burada sayac olarak I degeri kullaniliyor. Eger faktöriyeli hesaplanacak deger 2 den kücükse (1 veya 0 ise) döngü içine girilmemektedir. Döngü içinde sayac artimini kendimiz veriyoruz. Sayac sayi degerine esit iken döngü son kez çalitiriliyor.

Ferhat Pazarçevirdi · 11 Kasım 2007

Sanırım bunlar kayıt makrosu ... Kodlarla ne yapmak istediğinizi tam olarak anlatırsanız, daha iyi olur.

NOT : Do-Loop döngüleri'nden neyi kastediyorsunuz?

ilhanfire · 11 Kasım 2007

liste kitabımda a1 de yazdığım değer rapor kitabımda yeni bir sayfa açacak ve liste kitabımda a1 de yazdığım veri ismi yeni açılan sayfanın adı olacak

a1 satırının yanında yer alan değerler de yeni açılan sayfada ilgili hücrelere kopyalanacak

bu sistem a2 için de a3 içinde döngü olarak tekrarlanacak. a..... satırlarına yazdıkça her satırda bir sayfa açılıp aynı işlemler tekrar edecek.

kodla nasıl olabilir

ilhanfire · 11 Kasım 2007

bu liste kitabım

bu da rapor kitabım

Ferhat Pazarçevirdi · 11 Kasım 2007

Şimdi, sorunuz daha açık oldu

...

Bahsettiğiniz işlem için de döngü kullanılmaz. Döngüler periyodik olarak ardı ardına işlem yaparlar. Sizdeki durum ise, gerekli olduğu zaman -ki bu durum A sütununa yeni Sipariş Kodu girdiğiniz andır- makronun tekrar çalıştırılması esasına dayanır.

Zor bir kodlama değil.

Buradan, sayfaları ve kodları kendi kafama göre ayarlayıp çalıştırabilirim. Ama sizin kendinize adapte etmeniz gerekebilir.

Veyahut bu dosya şablonlarını (içinde birkaç örnek kayıt bulunan) eklerseniz, direkt üzerinde çalışabiliriz. Böylelikle hem sizin hem de benim ayrı ayrı uğraşmamıza gerek kalmaz.

ilhanfire · 12 Kasım 2007

tmm şimdi işyerindeyim eve dönünce ilgili dosyalardan örnekler ekleyeceğim. teşekkür ederim

ilhanfire · 12 Kasım 2007

dosyaları ekledim.
top sizde
kolay gelsin

ilhanfire · 12 Kasım 2007

sa arkadaşlar yardımınızı bekliyorum

ilhanfire · 12 Kasım 2007

evet değerli arkadaşlarım yardımınızı benden esirgemeyin

Ferhat Pazarçevirdi · 13 Kasım 2007

"1.xls" çalışma kitabında, 1660 sıra nolu sipariş 3-4 satır kayıttan oluşuyor. Bu siparişe nasıl sheet oluşturulacak ve yazılacak?

ilhanfire · 13 Kasım 2007

1660 numaralı sipariş için açılan sayfa 1660 ve benzer 1660 nolu satırlar için açılacak sayfalar 1660 (1)... 1660 (2).... olarak yeni sayfa açılıp kaydedilecek. aynı olan her sipariş farklı satırlara yazıldığı için bir sorun olmaz. koda sadece aynı numaralı hücrelerde yanına () değer atayarak sayfa eklemesi gerektiği yazılacak. yardımınız için şimdiden çık teşekkür ederim

ilhanfire · 13 Kasım 2007

arkadaşlar yardımlarınızı bekliyorum. teşekkürler

Ferhat Pazarçevirdi · 13 Kasım 2007

Sayfa oluşturma işi tamam ancak 1.xls'deki bilgileri, 2.xls'deki forma aktaramıyorum. Mesela Tirajı nereye yazılacak? For ne? Baskı For ne? Makine ne?

Biraz daha detay verseniz, bu iş daha kolay olacak. Şu an resmen bulmaca çözmeye çalışıyorum

ilhanfire · 14 Kasım 2007

merhaba arkadaşım, siz satırlardaki bilgileri herhangi bir hücreye yada hücrelere aktarın ben daha sonra hangi hücreye gelecekse kendim hücre adını değiştiririm.

önemli olan sistemi çalıştırabilmek veri adları yada yerlerini değiştiririz.

Teşekkür ederim

Ferhat Pazarçevirdi · 14 Kasım 2007

Şimdi, aşağıdaki kodları, "1.xls" kitabında "Kapak tak. " adlı sheet'in kod sayfasına kopyalayın (veya sadece örnek dosyayı indirin) ve yeni bir sıra no girin.

ŞART : 1.xls ve 2.xls dosyaları aynı dizin altında olmak zorunda ...

NOT : Bu kodlar, prosedürün kaba halidir. Değerlerin hepsi henüz atılmamıştır ancak sayfa oluşturma ve oluşturulan sayfaya, sipariş no getirme işlevleri yapılmaktadır. İnceleyiniz ve fikir beyan ediniz

Kod:

Dim wb1 As Workbook, wb2 As Workbook
Dim sh As Worksheet, shS As Worksheet, shT As Worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A500")) Is Nothing Then
   Set wb1 = ThisWorkbook
   Set sh = wb1.Sheets("Kapak tak. ")
   Application.DisplayAlerts = False
   Call WorkB2
   Set shS = wb2.Sheets("SABLON")
   For j = 1 To wb2.Sheets.Count
       If wb2.Sheets(j).Name = Target & "" Then
          If cevap = MsgBox(Target & " için, aynı isimli bir FORM önceden oluşturulmuş." _
                                   & vbCrLf & "Silinip Yenisi oluşturulsun mu ?", vbYesNo, "UYARI") = vbYes Then
             wb2.Activate
             On Error Resume Next
             wb2.Sheets(j).Delete
             wb2.Sheets("SABLON").Copy After:=wb2.Sheets(wb2.Sheets.Count)
             With ActiveSheet
                 .Name = Target
                 .Range("B1") = Target & "deneme"
             End With
             Application.EnableEvents = False
             Target = ActiveSheet.Name
             Application.EnableEvents = True
             GoTo f2
          Else
             Application.EnableEvents = False
             Target = Empty
             Target.Select
             Application.EnableEvents = True
             GoTo f2
          End If
       End If
   Next j
   wb2.Activate
   On Error Resume Next
   wb2.Sheets("SABLON").Copy After:=wb2.Sheets(wb2.Sheets.Count)
   With ActiveSheet
       .Name = Target
       .Range("B1") = Target & "deneme"
   End With
f2:
   Application.DisplayAlerts = True
   Set sh = Nothing
   Set shS = Nothing
   Set wb1 = Nothing
   Set wb2 = Nothing
End If
End Sub
'-------------------------------------------
Sub WorkB2()
On Error GoTo f1
Set wb2 = Workbooks("2.xls")
Exit Sub
f1:
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "2.xls")
End Sub

hücredeki yazıyı sayfa adı olarak yazma

ilhanfire

Necdet

Moderatör

Ferhat Pazarçevirdi

Özel Üye

Mahmut Kök

Özel Üye

ilhanfire

ilhanfire

Ferhat Pazarçevirdi

Özel Üye

ilhanfire

ilhanfire

Ferhat Pazarçevirdi

Özel Üye

ilhanfire

ilhanfire

ilhanfire

ilhanfire

Ferhat Pazarçevirdi

Özel Üye

ilhanfire

ilhanfire

Ferhat Pazarçevirdi

Özel Üye

ilhanfire

Ferhat Pazarçevirdi

Özel Üye