AccessTr.neT
A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme (/konu-a-sayfasinda-olan-veri-b-sayfasinda-varsa-a-sayfasindaki-ilgili-satiri-silme.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12

RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - hayalibey - 19/11/2020

Zafer Hocam sayfayı hazırla diyince kontrol sayfası kosul1 Alınmayacak Bürolar kısmına yazılan büroları çekmemesi  lazimken ilgili ay sayfasına çekiyor

Bir de misal ocak ayı sayfasına çekilen isimlerin F:AJ aralığına 1 ekleyip AJ satırında toplam alsa

RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - feraz - 19/11/2020

(19/11/2020, 12:59)hayalibey yazdı: Zafer Hocam sayfayı hazırla diyince kontrol sayfası kosul1 Alınmayacak Bürolar kısmına yazılan büroları çekmemesi  lazimken ilgili ay sayfasına çekiyor

Bir de misal ocak ayı sayfasına çekilen isimlerin F:AJ aralığına 1 ekleyip AJ satırında toplam alsa
Sınuç olarak nasıl çıkacak.Bir sayfada örnek olarak gösterin abey akşama bakayım.

RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - hayalibey - 19/11/2020

Tamam Hocam

RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - berduş - 19/11/2020

recordset ile yapıldı o nedenle ms ActiveX Data Objects library eklendi
Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection



SQL = "SELECT [VERi$].[F1], [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 (([VERi$]  LEFT JOIN [KONTROL$D2Lol]  ON [VERi$].[F6] = [KONTROL$D2Lol].[F1]) " & _

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

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

      "where ([VERi$].[F1]  Is Not Null) and (([KONTROL$D2Lol].[F1]) Is Null) and (([KONTROL$E2:e].[F1]) Is Null) and (([KONTROL$F2:F].[F1]) Is Null) "





Set ADO_RS = New ADODB.Recordset

Set ADO_CN = New ADODB.Connection



'sonStr = ws.Range("A" & Rows.Count).End(3).Row + 1



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

'

SonStr = Worksheets(Me.ComboBox1.Value).Cells(Worksheets(Me.ComboBox1.Value).Rows.Count, 2).End(xlUp).Row + 1

  

Worksheets(Me.ComboBox1.Value).Range("A7:AI" & SonStr).UnMerge

Worksheets(Me.ComboBox1.Value).Range("A7:AI" & SonStr).ClearContents





'  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



Worksheets(Me.ComboBox1.Value).Range("A7").CopyFromRecordset ADO_RS

skipfile:

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing
sonuçlar doğru ise imza ve toplam kodları da sonradan eklenebilir

RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - berduş - 19/11/2020

yanlışlıkla veri adları yeniden ekleniyor 'ADO_RS.MoveNext satırının başındaki tek tırnağı kaldırmanız yeterli

RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - hayalibey - 19/11/2020

Inceliyorim hocam su an