AccessTr.neT

(20/11/2020, 15:02)hayalibey yazdı: [ -> ]malesef satır sayısı her zmaan aynı olmayacağı için imza bloku kayacaktır zaten. Bu şekli ile amacına hizmet etmez. 

yalniz bu sadece şablon sayfa zaten imza alanları ve toplam gibi alanlar eklenen veriye göre otomatik olarak düzeltiliyor.

(20/11/2020, 18:55)berduş yazdı: [ -> ]

(20/11/2020, 15:02)hayalibey yazdı: [ -> ]malesef satır sayısı her zmaan aynı olmayacağı için imza bloku kayacaktır zaten. Bu şekli ile amacına hizmet etmez. 

yalniz bu sadece şablon sayfa zaten imza alanları ve toplam gibi alanlar eklenen veriye göre otomatik olarak düzeltiliyor.

Berduş Hocam sayfanın altında imzadan önce kılavuz veya tablo çizgileri çıkıyor A sütünü sin dolu satırdan sonda kılavuz çizgileri görünmemeli
Bir de 30 30 yazan kısımları en sona alta toplamasın
Hücrelerde 1 yerine 0 yazarsa açık yeşil dolgu olabilir mi 0 lar
Ama bir kontole bağlansın bu her yer yeşil olmasın

(20/11/2020, 19:20)hayalibey yazdı: [ -> ]Bir de 30 30 yazan kısımları en sona alta toplamasın

bir mesajınızda toplam almasını söylemiştiniz yanılmıyorsam, AJ sütunun en altına toplam alınmayacak mıydı?

Hocam 1 11111111111 ler toplanacak tu Aj ye
Bir de Hocam imza blogu sayfaya 5 li estetik olrak düzenli yerleşse.
Hocam bunu tamamlayıp bitirdikten sonra sayfalara ayırma kısmı yapılacağından tam analminile aylar sayfasının bitmiş olması gerekiyor.

bu arada biçimlendirme

(20/11/2020, 19:20)hayalibey yazdı: [ -> ]Berduş Hocam sayfanın altında imzadan önce kılavuz veya tablo çizgileri çıkıyor A sütünü sin dolu satırdan sonda kılavuz çizgileri görünmemeli

bu benim yazdığım kodla ilgili değil. 35. mesajınızdaki dosyayı indirip ekim ayına gelin ve elle değer girin otomatik olarak çerçeve ekleniyor. yani ben kodla çerçeveleri kaldırsam ile siz gün değerindeki 1lerden birini silseniz bile bu çerçeveler geri gelir

https://resim.accesstr.net/do.php?img=10601

---

(20/11/2020, 20:10)hayalibey yazdı: [ -> ]Bir de Hocam imza blogu sayfaya 5 li estetik olrak düzenli yerleşse.

ben imza alanlarına dokunmadım sizin tasarımınızı kullandım.
benim yapmaya çalıştığım A9dan imza alanına kadar (imza alanından önceki 2. satıra kadar yanılmıyorsam) tüm satırları silip
kayıt sayısı kadar satırı tekrar eklemek yani kodlar imza alanına dokunmuyor siz nasıl tasarladıysanız öyle tıpkı çerçeve alanları gibi

buton kodunu aşağıdaki kodla değiştirip dener misiniz?
tekrar belirteyim sadece veri getirmeyle ilgilidir kodlar AJ sütunundaki alt toplamı devre dışı bırakmak için

Dim Sql As String

Dim SyfAdi As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection

Dim WS As Worksheet



SyfAdi = Me.ComboBox1.Value

Set WS = ThisWorkbook.Sheets(SyfAdi)

SonStr = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row - 2



WS.Range("A8:AJ" & SonStr).Select

Selection.EntireRow.Delete

Application.ScreenUpdating = False



SQL = "SELECT  cdbl([VERi$].[F2]), [VERi$].[F5], [VERi$].[F3], [VERi$].[F4],1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 " & _

      "FROM [KONTROL$B2:C] INNER JOIN ((([VERi$] " & _

                           "LEFT JOIN [KONTROL$E2:E] ON [VERi$].[F6] = [KONTROL$E2:E].[F1]) " & _

                           "LEFT JOIN [KONTROL$F2:F] ON [VERi$].[F5] = [KONTROL$F2:F].[F1]) " & _

                           "LEFT JOIN [KONTROL$G2:G] ON [VERi$].[F2] = [KONTROL$G2:G].[F1]) ON [KONTROL$B2:C].[F2] = [VERi$].[F5] " & _

      "WHERE ([VERi$].[F1] Is Not Null) and (([KONTROL$E2:E].[F1]) Is Null) and (([KONTROL$F2:F].[F1]) Is Null) and (([KONTROL$G2:G].[F1]) Is Null) " & _

      "ORDER BY Clng([KONTROL$B2:C].[F1]), cdbl([VERi$].[F2])"





Set ADO_RS = New ADODB.Recordset

Set ADO_CN = New ADODB.Connection



ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _

                          ";extended properties=""excel 12.0;hdr=no;IMEX=1"""

ADO_CN.Open

ADO_RS.Open SQL, ADO_CN, 3, 1



WS.Rows("8:" & 5 + ADO_RS.RecordCount + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow       'xlFormatFromLeftOrAbove

'  Eğer Hiç Kayıt Yoksa

If ADO_RS.RecordCount = 0 Then

    MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"

    GoTo skipfile:

End If

ADO_RS.MoveLast

ADO_RS.MoveFirst

ADO_RS.MoveNext



WS.Range("B7").CopyFromRecordset ADO_RS

SonStr = 7 + ADO_RS.RecordCount - 2

Debug.Print SonStr

        WS.Range("A7") = 1

        WS.Range(WS.Cells(8, "A"), WS.Cells(SonStr, "A")).Formula = "=A7+1"

        WS.Range(WS.Cells(7, "Aj"), WS.Cells(SonStr, "Aj")).Formula = "=sum(F7:Ai7)"

        WS.Range(WS.Cells(7, "Aj"), WS.Cells(SonStr, "Aj")).Interior.color = WS.Range("AJ7").Interior.color

        WS.Range("A7").Select



skipfile:

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

Set WS = Nothing

    Application.ScreenUpdating = True