kapalı dosyadan alınan veriyi silmek

[Fuat Şirin]

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQLStr As String
Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
MyPath = Application.ThisWorkbook.Path & "\" & "1.XLS"
DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & MyPath
End Sub
Sub DBOFF()
On Error Resume Next
DB.Close
Set DB = Nothing
End Sub
Sub RSON()
On Error Resume Next
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
End Sub
Sub RSOFF()
On Error Resume Next
RS.Close
Set RS = Nothing
End Sub
Sub KayitBul()
On Error Resume Next
DBON
RSON
[a8:g1000].ClearContents
SQLStr = "SELECT [BARKOD],[STOK_ACIKLAMA],[STOK_KODU],[FIYAT_1],[FIYAT_2] FROM [Sayfa4$] "
RS.Open SQLStr, DB, 1, 3
Range("a8").CopyFromRecordset RS
[a1].Select
RSOFF
DBOFF
End Sub

arkadaşlar bu kodları kullanarak
kapalı dosyadan verileri alıyorum

istediğim bu verileri
düzeltip kapalı dosyaya geri kaydetmek
yani kaydettiğim zaman
kapalı dosyadada kaydetmesi

saygılar....

 

[Fuat Şirin]

bu konuda yardımcı olunursa sevinirim

 

[tamer42]

Kardeş burada istediğini bir örnekle desteklersen;

1- Kapalı dosya olarak bahsettiğin dosyayı buraya ekle,

2- Hangi veriyi nasıl düzelteceğinide belirt,

Sonra bakalım....

 

[tamer42]

Ekteki örneği incelermisiniz

Sanırım işinizi görür.

İyi Çalışmalar.

 

[Fuat Şirin]

RS.Update

hocam bu satırda hata verdi

 

[Fuat Şirin]

kusura bakmayın hocam
dosya ekle dediğiniz bölümü şimdi gördüm
ama yaptığınız örenek işimi görüyor
sadece veriyi güncellerken
o satırda hata veriyor

 

[tamer42]

Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
MyPath = Application.ThisWorkbook.Path & "\" & "1.XLS"

[B]DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & MyPath & ";" & _
      "Extended Properties=""Excel 8.0;HDR=Yes"""[/B]

End Sub

bu şekilde düzenlediniz mi?

 

[Fuat Şirin]

hocam nereyi düzenleyeceğim tam anlamadım

 

[Fuat Şirin]

hocam kapalı sayfayı aldıktan sonra
diyelim 3 satırı sildim yada
3 5 satır bilgi ekledim
nasıl alıyorsam
geri kapalı dosyaya aynı şekilde
düzelttiğim sayfayı yollamam lazım

saygılar

 

[tamer42]

Buradaki sıkıntı sizin bir örnek dosya göndermemeniz;

 Set TargetRng = ActiveCell
 sat = TargetRng.Row
 sut = TargetRng.Column

aktif hücrenin bulunduğu satırı düzeltiyor.

Satır silme veya ekleme ayrı bir durum,

bir örnek gönderin de onun üzerinde bakalım.
Siz tam ne istiyorsunuz?

 

[Fuat Şirin]

tamer kardeşim dosya eklicemde
eklicem dosyada senin yaptığın dosya ondan yer kaplamasını istemiyorum
istediğim
kapalı dosyadan verileri yukardaki kodlarla alıyoruz ya 1.xls dosyasından
aynı şekilde aldığım veriler üzerinden işlem yapıp
butona basıp
1.xls e kaydetmesini istiyorum
yani 1.xls ten gelicek aktif sayfaya
ben işlem yapıcam
aktar dicem 1.xls üstüne kayıt yapacak kapalı olan

 

[Fuat Şirin]

yani bunu hücreolarak düşünmeyinde
kopmle sheet olarak düşünün

 

[tamer42]

Diğer Arkadaşlar belki bakabilir,

Yalnız ben Pazartesi bu konuda sana yardımcı olabilirim.

İyi Çalışmalar.

 

[Fuat Şirin]

hocam bakabilirseniz çok makbule geçer
sistemi kurdum bir tek bunu bekliyorum
satış otomasyonu kurdum
bir tek bu lazım
saygılar

 

[tamer42]

Merhaba;

Bildiğim kadarıyla Excel de veriler silinemiyor. Ancak üzerine yazılabilir.

Benim tavsiyem kapalı dosyaya yeni bir sayfa oluşturup; dataları buraya yazdırın, sonra istediğiniz gibi düzenlersiniz.

Yalnız size daha iyi yardımcı olmam için örnek doyanızı göndermelisiniz.

İyi Çalışmalar.