• DİKKAT

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

Form listesinde nasıl bir formül uygulayabilirim

Konu günceldir yardımlarınızı bekliyorum :(

Sayın muygun mesajınız sonradan düştü hemen inceliyorum, ilginiz için teşekkür ediyorum...
 
Sayın muygun ekli görseldeki renkli satırların ne ifade ettiğini anlayamadım :(

Shot001.jpg.html
 

Ekli dosyalar

  • Shot001.jpg
    Shot001.jpg
    179.3 KB · Görüntüleme: 5
Merhaba;
Bahsettiğiniz satırlar hiçbirşey ifade etmiyor. (sayfalarda alt tablolara veri girerek test ettim)
Adı üstünde "deneme verisi"
01,02,03 sayfalarınde bahsettiğiniz verileri silerek butona basın.
Ayrıca tablolardaki tarih kısmına sadece tarih girin ("01.07.2015" gibi) ("Tarih: 01.07.2015" değil)
 
muygun' Alıntı:
Merhaba;
Bahsettiğiniz satırlar hiçbirşey ifade etmiyor. (sayfalarda alt tablolara veri girerek test ettim)
Adı üstünde "deneme verisi"
01,02,03 sayfalarınde bahsettiğiniz verileri silerek butona basın.
Ayrıca tablolardaki tarih kısmına sadece tarih girin ("01.07.2015" gibi) ("Tarih: 01.07.2015" değil)
Genişletmek için tıkla ...

Pardon söylemiş olduğum satırları forma işlemiş olduğunuzu yeni farkettim, veri olarak girdiğiniz satırları sildiğimde çıkmıyor, ilginiz için çok çok teşekkür ediyorum yalnız öğrenmek amaçlı sormak istiyorum makro mu uygulamış olduk, şu sebeple soruyorum benim sene başından beri düzenlemiş olduğum formlarım var bu makroyu o hazır formlarıma ekleyebilirmiyim nasıl ne şekilde yapabilirim?
 
Merhaba;

genel sayfasında kod bölümünde uygulanan makroyu görebilirsiniz. (ALT+F11 tuşlarına basarak kod kımına geçin)

For i = 6 To 25
sabitt = 2
If Sayfa.Cells(i, 4) <> "" Then
sonsatir = S1.Range("A65536").End(xlUp).Row + 1
S1.Cells(sonsatir, 1) = Sayfa.Cells(i, "c") 'sıra no
S1.Cells(sonsatir, 2) = Sayfa.Cells(sabitt, "m") 'tarih
S1.Cells(sonsatir, 3) = Sayfa.Cells(i, "d") 'no
If Sayfa.Cells(i, "e") <> "" Then S1.Cells(sonsatir, 4) = Sayfa.Cells(sabitt + 3, "e") 'kalıp
If Sayfa.Cells(i, "f") <> "" Then S1.Cells(sonsatir, 4) = Sayfa.Cells(sabitt + 3, "f") 'kalıp
If Sayfa.Cells(i, "g") <> "" Then S1.Cells(sonsatir, 4) = Sayfa.Cells(sabitt + 3, "g") 'kalıp
S1.Cells(sonsatir, 5) = Sayfa.Cells(i, "h") 'kalıp ebat
S1.Cells(sonsatir, 6) = Sayfa.Cells(i, "ı") 'firma veya işin adı
End If
Next i

Yukardaki kod (i döngüsü ve satırr değişkeni değiştirilerek) 3 kez tekrarlandı .
eşittir işaretlerinden önceki adres nereye yazıldığını, eşittir işaretinden sonraki kısım ise nereden alındığını gösteriyor.
satırların sonunda hangi veri olduğuna dair açıklama mevcut.
ayrıca veri alınan alanlarda sütun sayısı yerine sütun adı kullanılarak anlaşılır olmasını sağladım.
İyi çalışmalar.
 
Sayın muygun ne kadar teşekkür etsem azdır, dosya üzerinde inceleyerek bir adım yol katedeceğim sayenizde, ilgi ve alakanız için çok çok teşekkür ederim, saygılarımı sunuyorum...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst