[Çözüldü]  Kapalı Kitaptan Sütun Başlıklarına Göre Veri Alma Kod Yardım

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kapalı Kitaptan Sütun Başlıklarına Göre Veri Alma Kod Yardım

İleti#1)  OMERULLAH » 07 Haz 2019 15:18

Sayın Uzman arkadaşlar,

Aşağıdaki kod yardımı ile kapalı kitaptan, açık olan kitaba veri transferi yapıyorum.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F1")) Is Nothing Then
Call ADO
End If
End Sub

Sub ADO()
Dim con As Object
Dim rs  As Object
Range("F3:Z65536").Value = ""
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Database_Completed_LYRA_HOTEL.xlsx" & _
";extended properties=""excel 8.0;hdr=No"""

Sql = "select F1,F2,F3,F4,F5,F6,F7,F8,F12,F13,F14,F9,F10,F11,F15,F16,F17,F18,F19,F20,F21 from [Sheet$A1:U65536]  where CLng(CDate(F13))='" & CLng(CDate(Range("F1").Value)) & "' and not isnull(F13) "

Set rs = con.Execute(Sql)
Range("F65536").End(3).Offset(1, 0).Cells.CopyFromRecordset rs
If rs.RecordCount > 0 Then
    NoA = Range("F" & Rows.Count).End(xlUp).Row + 1
    Range("F" & F).CopyFromRecordset rs
End If

Set rs = Nothing
Set con = Nothing

Range("F3:Z65536").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21), Header:=xlYes
End Sub


Kapalı çalışma kitabındaki veriler sürekli güncellendiğinden, açık olan sayfaya güncellenen verileri ilave etmeliyim.
Eski verileri silerek yerine yenilerini yazmasını değil, açık olan kitaptaki sayfanın son dolu satırdan sonraki boş satırdan itibaren verileri yazması için mevcut kodu nasıl revize etmeliyim.
Konuya hakim arkadaşların benim için çok değerli olan yardımlarını rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 51
İleti: 140
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Kapalı Kitaptan Sütun Başlıklarına Göre Veri Alma Kod

İleti#2)  Ali ÖZ » 11 Haz 2019 09:00

Merhaba,
Bu satırı kaldırın.
Kod: Tümünü seç
Range("F3:Z65536").Value = ""
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Kapalı Kitaptan Sütun Başlıklarına Göre Veri Alma Kod

İleti#3)  OMERULLAH » 12 Haz 2019 12:52

Sayın Ali ÖZ,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim,
ALLAH sizden ve sevdiklerinizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 51
İleti: 140
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Kapalı Kitaptan Sütun Başlıklarına Göre Veri Alma Kod

İleti#4)  Ali ÖZ » 13 Haz 2019 07:57

Amin cümlemizden.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 0 misafir

Bumerang - Yazarkafe