Insert dòng theo điều kiện!

[anhchanghamhoc]

các pác viết hộ em cái code insert dòng theo điều kiện
em ví dụ: tại dòng A1 có giá trị là 2 thì insert dưới dòng đó 2 dòng, còn nếu giá trị là 3 thì insert nó thêm 3 dòng, ...( trong đó giá trị tại cột A có sẵng)
Thank! các pác trước nha!

 

[le tin]

các pác viết hộ em cái code insert dòng theo điều kiện
em ví dụ: tại dòng A1 có giá trị là 2 thì insert dưới dòng đó 2 dòng, còn nếu giá trị là 3 thì insert nó thêm 3 dòng, ...( trong đó giá trị tại cột A có sẵng)
Thank! các pác trước nha!

Bạn dùng thử code này :
Range("A2:A" & [a1] + 1).Insert Shift:=xlDown

 

[ThuNghi]

các pác viết hộ em cái code insert dòng theo điều kiện
em ví dụ: tại dòng A1 có giá trị là 2 thì insert dưới dòng đó 2 dòng, còn nếu giá trị là 3 thì insert nó thêm 3 dòng, ...( trong đó giá trị tại cột A có sẵng)
Thank! các pác trước nha!

Bạn dùng code sau thử, với những trường hợp thêm dòng, xóa dòng hay hide dòng thường nên duyệt từ dưới lên.

Sub insertRow()
Dim endR As Long, iR As Long, sodong As Long
Sheet1.Select
endR = Cells(65000, 1).End(xlUp).Row
For iR = endR - 1 To 1 Step -1
  sodong = Cells(iR, 1)
  Rows(iR + 1 & ":" & iR + sodong).Insert Shift:=xlDown
Next iR
End Sub

 

[anhchanghamhoc]

em cảm ơn pác "ThuNghi", sẵng đây cho em hỏi em muốn tạo form nhập dữ liệu cho nhiều sheet, có nghĩa là đi nhập thì trong form đó có list book để em chọn nhập vào sheets nào! và tự động nó nhập dữ liệu nằm sau ngay các dòng nhậ kế trước đó pác làm ơn cho em xin cái form và code đó đi!
Thank your very much!

 

[ndu96081631]

em cảm ơn pác "ThuNghi", sẵng đây cho em hỏi em muốn tạo form nhập dữ liệu cho nhiều sheet, có nghĩa là đi nhập thì trong form đó có list book để em chọn nhập vào sheets nào! và tự động nó nhập dữ liệu nằm sau ngay các dòng nhậ kế trước đó pác làm ơn cho em xin cái form và code đó đi!
Thank your very much!

Hỏng ai có thể viết được code cho Form nếu chưa nhìn thấy dữ liệu thật đâu bạn à! Công cụ luôn phục vụ cho 1 mục đích cụ thể ---> Không thể có 1 công cụ đa năng phục vụ được cho mọi ngành nghề đâu

 

[anhchanghamhoc]

Hỏng ai có thể viết được code cho Form nếu chưa nhìn thấy dữ liệu thật đâu bạn à! Công cụ luôn phục vụ cho 1 mục đích cụ thể ---> Không thể có 1 công cụ đa năng phục vụ được cho mọi ngành nghề đâu

em gởi file xin pác làm giúp em với!
làm cái form nhập vật tư cho nhiều sheet, tùy theo loại vật tư mà form sẽ nhập cho từng sheet!