adodb.connection

Excel harici diğer konuları burada paylaşabilirsiniz.

Cevap: Cevap: adodb.connection

İleti#61)  feraz » 09 Haz 2019 01:52

feraz yazdı:Helal olsun üstadım.
Zevkle yardımcı olmaya çalıştım.

Önceden yazmıştım galiba yinede yazayım.Silme ve güncellemede eğer listviewden hiç satır seçilmezse arşivden üçüncü satırda ,bordro sayfasındanda 5.ci satırdakilerde işlem yaplıyor.Burası çok önemli.

Aslında listviewe hiç tıklanmasa bile listviewin ilk satırı tıklanmış gibi algılanıyor.Oraya şart koymak istedim başaramadım.Forumlara bir sorayım varsa çözüm onuda ekleriz.


Aldığım yardımlar sayesinde yukarda anlattığım sorun çözülmüştür.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5945
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: adodb.connection

İleti#62)  malatyali » 09 Haz 2019 11:23

Gerçekten bu dosya sizin emeğiniz neticesinde ortaya çıktı. Allah sizden razı olsun.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 109
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: adodb.connection

İleti#63)  malatyali » 09 Haz 2019 18:05

Sub siralaSiraNoArsiv()
Dim son As Long, arr, i As Long
With Sheets(sayfa_ARŞiV)
son = .Range("C:C").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If son < 3 Then son = 3
ReDim arr(1 To son, 1 To 1)
For i = 3 To son
arr(i - 2, 1) = i - 2
Next
.Range("B3").Resize(son, 3).Value = arr
End With
Erase arr
End Sub

Üstad yukarıda ki kodun açıklaması ne?
Sıra numarasını neye göre alıyor.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 109
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: adodb.connection

İleti#64)  feraz » 09 Haz 2019 18:34

Arşiv sayfasında C sütununa göre son dolu satır bulunuyor.

Eğer son satır 3 den küçükse son satır no yu 3 olarak buluyor.

Sonra b3 den bson satıra kadar 1 den son satıra kadar njmara ekliyor.
Yani son satır 10 ise B3:B10 aralığına 1 den 10 a kadar sayı ekleniyor.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5945
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

Cevap: adodb.connection

İleti#65)  feraz » 09 Haz 2019 18:49

Kodda b3 ile b65536 aralığını temizleme unutulmuş.

.range("b3:b" & rows.count).value=""

Bu kodu redim yazan yerin altına ekleyin.

Bordro sayfasındada temizleme kodu yok ozaman.
Orayada eklyin yukardaki kodu 3 yerine 5 yazın.Galiba 5.satırdan başlıyordu.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5945
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Önceki

Forum Diğer Konular

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 0 misafir

Bumerang - Yazarkafe