Function SayfaVarMi(Sayfa As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function
Sub kod()
Application.ScreenUpdating = False
Dim Sayfa As String
Dim SA As Worksheet
Dim SB As Worksheet
Dim i As Integer
Set SA = Sheets("ANASAYFA")
Set SB = Sheets("ŞABLON")
For i = 3 To SA.[B65536].End(3).Row
If SA.Cells(i, "B") <> "" Then
Sayfa = SA.Cells(i, "B")
If Not SayfaVarMi(Sayfa) Then
SB.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = SA.Cells(i, "B")
Sheets(Sayfa).Range("a2") = SA.Cells(i, "A")
Else
End If
End If
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ R A H A T A O L "
End Sub
burada ki yanlışlık nedir acaba yardımcı olurmusunuz
ve iki isim aynı oldumu yalnız birine özel dosya yapıyor neden acaba
ne hata yaptım yardım edermisinin
tamam teşekkür ederim uyarınız için daha dikkatli olmaya çalışırım
kimse yok mu bugün
YARDIM LÜTFEN
Cevap almak için konu açmanız yeterli, anında cevap alacaksınız diye bir kural yok. Flood mesaj atmayınız. Konuyu
Access Soruları Bölümüne açmışsınız.
Bu kod hangi amaca hizmet edecek belirtin,
ayrıca kod içerisinde SA=ANASAYFA ve SB=ŞABLON gibi bir kod var ama örnekte bu isimlerde sayfa yok.
merhaba sayın safe88,
eklediğiniz uygulamanız sayfa oluşturma üzerine kodlama içermektedir.klasör oluşturma ise başka kodlama ile yapılmaktadır.
iyi çalışmalar,
saygılar.
Sn:safe88
Eklemiş olduğunuz kodların klasör oluşturma ile bir ilgisi yok sadece yeni sayfa açma ile ilgili yani ŞABLON isimli sayfayı kopyalayıp yeni isim ile açar.Aşagıdaki konunun 4 mesajını inçeleyiniz.
Program Yapmak
Cari Kayıt
Hatana Gelince Else blogu yanlış yerde tanımlanmış aşağıdaki şekilde düzemleyiniz.
Application.ScreenUpdating = False
Dim Sayfa As String
Dim SA As Worksheet
Dim SB As Worksheet
Dim i As Integer
Set SA = Sheets("ANASAYFA")
Set SB = Sheets("ŞABLON")
For i = 3 To SA.[B65536].End(3).Row
If SA.Cells(i, "B") <> "" Then
Sayfa = SA.Cells(i, "B")
Else
If Not SayfaVarMi(Sayfa) Then
SB.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = SA.Cells(i, "B")
Sheets(Sayfa).Range("a2") = SA.Cells(i, "A")
End If
End If
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ R A H A T A O L "
Bunu bu isim istesi oluşturmak için kullanıyorum hangi tarihte kim ne kadarlık mal getirmiş vb
SA=İSİM LİSTESİ ve SB=ALACAK ŞEKLİNDE DİR
ogulcan92 OLMADI ABİ
Bu çalışma kitabındaki aşağıdaki özellikler önceki
Excel sürümleri tarafından desteklenmiyor. Bu çalışma kitabını önceki bir dosya biçiminde kaydettiğinizde bu özellikler kaybolabilir veya düzeyi düşürülebilir.
Önemsiz bir güvenilirlik kaybı Yinelenme sayısı
BÖYLE BİR YAZI ÇIKIYOR
ÖRNEK PUANTAJ.xls için Uyumluluk Raporu
Çalıştırma tarihi: 10.06.2014 10:02
Bu çalışma kitabındaki aşağıdaki özellikler önceki
Excel sürümleri tarafından desteklenmiyor. Bu çalışma kitabını önceki bir dosya biçiminde kaydettiğinizde bu özellikler kaybolabilir veya düzeyi düşürülebilir.
Önemsiz bir güvenilirlik kaybı Yinelenme sayısı
Tablonun toplam satırında özel bir formül veya metin var. Excel'in önceki sürümlerinde veriler tablo olmadan görüntülenir. 31
'Sayfa1'!K108
'Sayfa2'!K108
'Sayfa3'!K108
'Sayfa4'!K108
'Sayfa5'!K108
'Sayfa6'!K108
'Sayfa7'!K108
'Sayfa8'!K108
'Sayfa9'!K108
'Sayfa10'!K108
'Sayfa11'!K108
'Sayfa12'!K108
'Sayfa13'!K108
'Sayfa14'!K108
'Sayfa15'!K108
'Sayfa16'!K108
'Sayfa17'!K108
'Sayfa18'!K108
'Sayfa19'!K108
'Sayfa20'!K108
'Sayfa21'!K108
'Sayfa22'!K108
'Sayfa23'!K108
'Sayfa24'!K108
'Sayfa25'!K108
'Sayfa26'!K108
'Sayfa27'!K108
'Sayfa28'!K108
'Sayfa29'!K108
'Sayfa30'!K108
'Sayfa31'!K108
Bu çalışma kitabındaki bir tabloya tablo stili uygulanmış. Tablo stili biçimlendirmesi Excel'in önceki sürümlerinde görüntülenemez. 33
'Sayfa1'!K2:K108
'Sayfa2'!K2:K108
'Sayfa3'!K2:K108
'Sayfa4'!K2:K108
'Sayfa5'!K2:K108
'Sayfa6'!K2:K108
'Sayfa7'!K2:K108
'Sayfa8'!K2:K108
'Sayfa9'!K2:K108
'Sayfa10'!K2:K108
'Sayfa11'!K2:K108
'Sayfa12'!K2:K108
'Sayfa13'!K2:K108
'Sayfa14'!K2:K108
'Sayfa15'!K2:K108
'Sayfa16'!K2:K108
'Sayfa17'!K2:K108
'Sayfa18'!K2:K108
'Sayfa19'!K2:K108
'Sayfa20'!K2:K108
'Sayfa21'!K2:K108
'Sayfa22'!K2:K108
'Sayfa23'!K2:K108
'Sayfa24'!K2:K108
'Sayfa25'!K2:K108
'Sayfa26'!K2:K108
'Sayfa27'!K2:K108
'Sayfa28'!K2:K108
'Sayfa29'!K2:K108
'Sayfa30'!K2:K108
'Sayfa31'!K2:K108
'ALACAK'!B4:I35
'İSİM LİSTESİ'!A2:BF272
Bu çalışma kitabındaki bazı hücreler veya stiller, seçili dosya biçiminde desteklenmeyen biçimlendirmeler içeriyor. Bu biçimler kullanılabilen en yakın biçime dönüştürülecek. 12
NASIL DÜZELTECEM BU SORUNU YAA