• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

adisyon

Dosyanızda ekteki resimde görüldügü üzere sorun var, sistem dosyanın açılmasını engelliyor. Olasılıkla virus değil ama bir .xls dosya olduğu ve yüksek sürümlerdeki araçlar ile derin uyuşmazlık nedeni ile bu uyarıyı veriyor. Dolayısı ile incelemek isteyen de bu uyarı yüzünden vaz geçebilir.

.xls sürüm kullanan bir arkadaş belki çalıştırabilir ve içeriği görebilir. Diğer açmaz konu da sanırım çoğunlukla .xlsx yada .xlsm kullanılıyor ve bunlarda yapılacak düzeltme de olasılıkla sizin sürümünüzle çatışacak.

Diğer yandan , dosyanın sayfalarında fazla veri olmasa da yaklaşık 4 Mb boyutunda. Belki userformlarda oldukça fazla form aracı kullanılmış olabilir. Böyle ise ; çalışır umudu ile dosyayı yeniden .xlsm olarak yaratmak da çok zaman alabilir.
 

Ekli dosyalar

  • addisyon sorun .jpg
    addisyon sorun .jpg
    168.6 KB · Görüntüleme: 10
Maalesef bendeki 2010 ; " bu dosya bir dizi soruna neden oldu " uyarısı verdi ve açılmadı ... Belki başka bir arkadaşta .xlsm yapılmış haliyle açılabilir.

Zip ve dosyayı geri dönüşüme göndermek bile 7 dakika aldı .
 
Makronuzda kayıt yapılacak ilk boş satır olmadığı için bu harayı alıyorsunuz.
Kodun en başına kırmızı bölümü ekle


Kod:
Private Sub CommandButton1_Click()

[COLOR="Red"]Bos_Satir = Worksheets("VERİ").Cells(Rows.Count, "B").End(3).Row + 1[/COLOR]

Sheets("VERİ").Range("A" & Bos_Satir).Value = TextBox1.Text
Sheets("VERİ").Range("B" & Bos_Satir).Value = TextBox2.Text
Sheets("VERİ").Range("C" & Bos_Satir).Value = TextBox3.Text
Sheets("VERİ").Range("D" & Bos_Satir).Value = TextBox4.Text
Sheets("VERİ").Range("E" & Bos_Satir).Value = TextBox5.Text
Sheets("VERİ").Range("G" & Bos_Satir).Value = TextBox7.Text
Sheets("VERİ").Range("I" & Bos_Satir).Value = TextBox9.Text
Sheets("VERİ").Range("K" & Bos_Satir).Value = TextBox11.Text
Sheets("VERİ").Range("M" & Bos_Satir).Value = TextBox13.Text
Sheets("VERİ").Range("O" & Bos_Satir).Value = TextBox15.Text
Sheets("VERİ").Range("Q" & Bos_Satir).Value = TextBox17.Text
Sheets("VERİ").Range("S" & Bos_Satir).Value = TextBox19.Text
Sheets("VERİ").Range("U" & Bos_Satir).Value = TextBox21.Text
Sheets("VERİ").Range("W" & Bos_Satir).Value = TextBox23.Text
Sheets("VERİ").Range("Y" & Bos_Satir).Value = TextBox25.Text
Sheets("VERİ").Range("AA" & Bos_Satir).Value = TextBox27.Text
Sheets("VERİ").Range("AC" & Bos_Satir).Value = TextBox29.Text
Sheets("VERİ").Range("AE" & Bos_Satir).Value = TextBox31.Text
Sheets("VERİ").Range("AG" & Bos_Satir).Value = TextBox33.Text
Sheets("VERİ").Range("AI" & Bos_Satir).Value = TextBox35.Text
Sheets("VERİ").Range("AK" & Bos_Satir).Value = TextBox37.Text
Sheets("VERİ").Range("AM" & Bos_Satir).Value = TextBox39.Text
Sheets("VERİ").Range("AO" & Bos_Satir).Value = TextBox41.Text
Sheets("VERİ").Range("AQ" & Bos_Satir).Value = TextBox43.Text
Sheets("VERİ").Range("AS" & Bos_Satir).Value = TextBox45.Text
Sheets("VERİ").Range("AU" & Bos_Satir).Value = TextBox47.Text
Sheets("VERİ").Range("AW" & Bos_Satir).Value = TextBox49.Text
Sheets("VERİ").Range("AY" & Bos_Satir).Value = TextBox51.Text
Sheets("VERİ").Range("BA" & Bos_Satir).Value = TextBox53.Text
Sheets("VERİ").Range("BC" & Bos_Satir).Value = TextBox55.Text
Sheets("VERİ").Range("BE" & Bos_Satir).Value = TextBox57.Text
Sheets("VERİ").Range("BG" & Bos_Satir).Value = TextBox59.Text
Sheets("VERİ").Range("BI" & Bos_Satir).Value = TextBox61.Text
Sheets("VERİ").Range("BK" & Bos_Satir).Value = TextBox63.Text
Sheets("VERİ").Range("BM" & Bos_Satir).Value = TextBox65.Text
Sheets("VERİ").Range("BO" & Bos_Satir).Value = TextBox67.Text
Sheets("VERİ").Range("BQ" & Bos_Satir).Value = TextBox69.Text
Sheets("VERİ").Range("BS" & Bos_Satir).Value = TextBox71.Text
Sheets("VERİ").Range("BU" & Bos_Satir).Value = TextBox73.Text
Sheets("VERİ").Range("BW" & Bos_Satir).Value = TextBox75.Text
Sheets("VERİ").Range("BY" & Bos_Satir).Value = TextBox77.Text
 


End Sub
 
Bu oldu ama şöyle bir sıkıntı çıktı anlamadım hesap yapmıyor şuan toplamını vermiyor
 
Alternatif olarak dosyanıza deneme sayfası ekledim ve yeni adı altında bir userform ekledim deneme sayfasındaki komut düğmesine tıkla girişleri yap sonuçları gözlemle.

not: toplamlar formülsüz olarak kod yapıyor
 

Ekli dosyalar

kusura bakmayın çok oldu ama örneğin mesela kaydı yaptıktan sonra userformdaki yazdıklarım gitsin istiyorum onu nasıl yapacağm
 
Alternatif olarak dosyanıza deneme sayfası ekledim ve yeni adı altında bir userform ekledim deneme sayfasındaki komut düğmesine tıkla girişleri yap sonuçları gözlemle.

not: toplamlar formülsüz olarak kod yapıyor

ve birde sizin yaptığınz şey olmuş ama ben bu sefer stoktan düşüremiyorum malzemeyi.
 
Sayın Halit Bey Malzeme isimlerinin yazılı olduğu label isimlerini (Çay vb) de CAFE-FİYAT sayfasından alsa daha iyi olur zannımca. YEDEK isimdeki kısımlara ürün ismi vermek gerekirse, sadece sayfada değişiklik yapmak yeterli olur. Bu şekilde hem formda hem de sayfada değişiklik yapmak gerekecek.
 
Stokdan düşmesi için aşağıdaki gibi yazabilirsiniz. Sadece Çay için yazdım.

Sheets("STOK").Range("C2").Value = Sheets("STOK").Range("C2").Value + TextBox7.Text
 
Kodların anlaşılması için döngüleri ayrı yaptım.

Kod:
Private Sub CommandButton1_Click()


syf1 = "deneme"
syf2 = "CAFE-FİYAT"
[COLOR="red"]syf3 = "STOK"[/COLOR]

sat = Worksheets(syf1).Cells(Rows.Count, "a").End(3).Row + 1


If sat <= 3 Then sat = 3
For j = 1 To 42
Sheets(syf1).Cells(sat, j).Value = Controls("TextBox" & j).Text
Next j


say = 0

For i = 2 To 37
bulunan1 = Sheets(syf2).Cells(i, 1).Value
bulunan2 = Sheets(syf2).Cells(i, 2).Value

For r = 7 To 42
aranan1 = Sheets(syf1).Cells(1, r).Value
aranan2 = Sheets(syf1).Cells(sat, r).Value
If aranan1 = bulunan1 Then
say = CDbl(say) + (bulunan2 * aranan2)

Sheets(syf3).Cells(i, 3).Value = Sheets(syf3).Cells(i, 3).Value - aranan2

End If
Next r
Next i


Sheets(syf1).Cells(sat, 6).Value = say

[COLOR="Red"]son = Worksheets(syf1).Cells(Rows.Count, "a").End(3).Row
For k = 7 To 42
Worksheets(syf3).Cells(k - 5, 3).Value = WorksheetFunction.Sum(Worksheets(syf1).Range(Worksheets(syf1).Cells(3, k), Worksheets(syf1).Cells(son, k)))
Next k

For j = 1 To 42
Controls("TextBox" & j).Text = ""
Next j[/COLOR]

MsgBox "işlem tamam"
End Sub
 
Geri
Üst