Merhabalar,
Butona basınca;
1) EIRSYZR sayfasında A2 hücresinde yazan irsaliye numarasını, IRSDKM sayfasında X sütununda (5. satırdan itibaren) ara, bulduğun listeyi HKSDKM (5. satırdan itibaren) en alt boş satıra kopyala (kopyalama sırası alttaki gibidir yani IRSDKM sayfasındaki B deki veri HKSDKM sayfasında A ya))
2) HKSDKM sayfasında en altta boş satırların bitmemesi için alttaki gibi kodu da entegre edersek sevinirim.
Dim lastRow As Long
HKSDKM.Rows("1048574:1048576").EntireRow.Delete
lastRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
HKSDKM.Rows(lastRow).Copy HKSDKM.Cells(lastRow + 1, "A") (yada taşıdığı satır kadar en alttaki satırı çoğalt)
Butona basınca;
1) EIRSYZR sayfasında A2 hücresinde yazan irsaliye numarasını, IRSDKM sayfasında X sütununda (5. satırdan itibaren) ara, bulduğun listeyi HKSDKM (5. satırdan itibaren) en alt boş satıra kopyala (kopyalama sırası alttaki gibidir yani IRSDKM sayfasındaki B deki veri HKSDKM sayfasında A ya))
IRSDKM | HKSDKM |
B | A |
C | B |
V | C |
W | D |
X | E |
Y | F |
Z | G |
AA | H |
AB | I |
AC | J |
U | F |
2) HKSDKM sayfasında en altta boş satırların bitmemesi için alttaki gibi kodu da entegre edersek sevinirim.
Dim lastRow As Long
HKSDKM.Rows("1048574:1048576").EntireRow.Delete
lastRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
HKSDKM.Rows(lastRow).Copy HKSDKM.Cells(lastRow + 1, "A") (yada taşıdığı satır kadar en alttaki satırı çoğalt)