Skip to main content

AccessTr.neT


Klasör Oluşturma Hatası

Klasör Oluşturma Hatası

Çözüldü #1
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
.rar Merak üzerine.rar (Dosya Boyutu: 25,17 KB | İndirme Sayısı: 11)
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
Çözüldü #4
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 "
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #5
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İ
Son Düzenleme: 10/06/2014, 00:05, Düzenleyen: safe88.
Cevapla
Çözüldü #6
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
Son Düzenleme: 10/06/2014, 10:14, Düzenleyen: safe88.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task